A-f— E000+ A 100 0000 000*0000 TERMINATION SIGNAL 

a~~ eooi A---1- ooo- oooo ^oor»-60or r 

A--- E002 A 2 000 0000 001,6002 2 

Av~- EC03 A" '3-000 0000 001»5003 3' 

A— -E0Q4 A 4 000 0000 001*6004 4 



A- 

A- 
^A- 

A- 
-A- 

A- 
~A* 

A- 
-A* 

A- 
~A~ 

A- 
-A- 

A- 
-A- 

A- 
-A- 

A- 
"A- 

A- 
-A* 

A- 
-A- 

A- 
-A 

A- 
-A= 

A- 
-A- 



-E005 
; -E006 
~"EQ 07" ~ 

-Eooa 

-£009'- 

-E010 

-E-011-- 

-E012 

-eoi3- 

•-E014 

•-E0T5™ 

-E016 

-EOir- 

-E018 

'--£-019— 

-E020 

«E02T- 

-E022 

•"-"E023"" 

-E024 

-E-025— 

•-E026 

•-E027- 

-EQ28 

£029- 
-E030 
■-E031— 
-E032 
=E033"~ 



A 
A 
A 

A 
"A 

A 



5 

6 
— r 

8 
— 9" 

10 



--A-11- 

A 12 

-A--1-3- 

A 14 
- A - r5 - 

A 16 
~K~IT 

A 18 
"7TT9- 

A 20 
-A-2T 

A 22 
'"A""Z3" 

A 24 
-A-25" 

A 26 
-A-21- 

A 28 
"A— 29" 

A 30 
"fir- 31" 

A 32 
_ A~3'3- 



000 
000 
TfOG' 

cob 
-ooo- 

000 
■-00D- 
000 
000- 
000 
"O'GO" 
000 

trar - 

002 

-0133- 

004 

-005- 

006 

WT 

010 

■ -o-ri - 

000 
-000" 

000 

■oocr 

ooo 

-000- 

000 
-OTT 



0000 

0000 

QOW 

0000 

0000' 

0000 

0000 

0000 

0000 

0000 

"OO'O'O* 

0000 

V— I 

V 2 

y--- 3 

V 4 

■ v — 5 - 

V 6 
V""7 

V 8 
V~ 9' 

0000 
0000 
0000 
0000 
0000 

0000 

a 33 

■y-1'0' 



001,5005 
001,5006 
0"OT»40W 
001,6010 

■oorvsoTi- 

000,4016 

000,401-6- 

000,4016 
-O-Q0T4Q3-6- 

000,4016 
X> 00740X6" 

000*6020 
' 00275 OZr" 

002,5022 
'0"02 r »*OZ3" 

002,5024 
■002T4025" 

002*4026 

002»5030 

0-02,-4031-- 

000,4016 

000", 3033" 

000,4016 

000»40-r6- 

000,3036 

■trtsQjztnr- 

240,6040 
■Q02"?504r 



6 

~T 

Q 
. 9 _ 



iPACE 



SEMICOLON 
XCA~~ 
LC3 



XCC 

XCD 

XCE" 

LCF 
XCS 

LCH 

xcr 



A E034 A 34 013 V 11 002,5042 



EJECT+CR+EOM 
-EJECT-FCR- 

MULTIPLY DOT 

XC| 

LCK_ 



A- 



* n m 



n$ 



8 



mm 



A- 

A- 



— E037 
—£038 



A 37 016 
A 38 017 



A- 

A- 
-&- 

A- 
~A- 

A- 
-A- 

A- 
"A- 

A- 
-A- 

A- 
-A- 

A- 
-A- 

A- 
"A= 

A* 
-A- 

A- 



— E039 
— E040 
--TO 41"- 
.-.£042 
--E043-- 
— E044 
--£045""' 
— E046' 
--^£047" 
— E048 
----EO49-- 
— £030 
— E05T~ 
— E052 
—E05-3-- 
— E054 
--XO5-5-' 
— E056 
—E057- 
—EOS 8 



A 39 020 
A 40 021 

A 42 100 
"K "43 _ -0-02" 

A 44 000 
" A"" 4'5" 000- 

A 46 000 

A 48 000 
-A-49 - tT0Q- 
A 50 023 

-A-yi—o-z*- 

A 52 025 

■ 7C "53-0-2 6" 

A 54 027 

- ix -5 5-0-30 " 

A 56 031 
~AT57~0 32" 

A 58 000 



V 14 
VL 13 

V "li" 

V 17 
VT8- 

0000 

0000" 
« 32 
XOOO' 
0000 
■0000" 
0000 

-= -34- 

V 19 
-V~20 

V 21 
V22- 

V 23 
y-2-4' 

V 25 

V 26 
0000 



002»4045 

002,4046 

"062,3047 

002,5050 

000,4052 
04 -,305-3 - 
140,4054 

-00OT34I6- 
000,4016 

001,5060 

-24a»4xr6r- 

002*4062 
-0 0213 063" 
002,4064 
'002i3tr65" 
002,3066 
O02S2O-67' 
002,4070 
J 002'»307r 
000*4016 



LCH 
LCO 

LCG_ 
XCR 
CR+EOM+TERMINAL SIGNAL IN SIGN 



-CONDITION"FLAG*TCHAR"055""CAN»T' GET IN) 



ZERO 

7 

LCS 
XCT — 

LCU 
XCV " 

LCW 

-cor- 

LCY 

LCZ 



A £060 

A EQ61-- 

A E062 

A-—- E-063 

A EQ64 

A- — £065- 

A E066 

A— — 'E067- 

A- E068 

A— -E069" 

A E070 

£071" 
£072 
E073-- 
E074 
£07 5- 



-A* 

A- 
-A- 

A- 

-A- 



A £076 

-A*«**eorr— 

A E078 

-A*-~~E-07^--- 

A- — E080 
~A^=--£081 — 

A E082 

-A-—E-083— 

A~— E084 

-A-=-~eo85-- 

A £086 

-A~.-£087— 
A EQ88 

"A-— -e-08 1 ?— " 

A~-~E090 
-A**--r£09i- — 

A E092 

-#=^£■0:93 — 

A £094 

-A~«=--£095— 
A E096 

A E098 

-A-=^E099~ 

A E100 

-A'***--E1©1— 

A E102 

-A=^--E1Q3— 

A — -£104 
-A—-ET05 — 

A- — El 06 

-a =*--c tor - 

A El 08 

-A«— £t09— 

A £110 

"A--- ^Elll — 

A El 12 

-A--—E11-3— 

A £114 

-A*~«E-ris— 

A El 16 

-A"«— 'Etl-7— 
A £118 



--A--59--Q-0orotmo- 

A 60 000 - 31 
--A--61--00O-00O0- 

A 62 000 0000 
A 63 000 0000 
A 64 000 0000 

- A "65" 000 -'0000- 
A 66 000 0000 

--A--67--00Q-QQ00- 
A 68 000 0000 

A" 69-003 0000 

A 70 006 0000 
A "71- 001-0000- 
A 72 004 0000 

--A--73-000-A-W-2" 
A 74 000 0000 

"A -75 000 0000 

A 76 000 0000 

"A" -77- 000- 0000- 

A 78 000 0000 
--ft- -7 9" -QUO -OOOO- 

A 80 000 0000 
-A~"81-04l-V~2T" 

A 82 042 V 28 

A 84 044 V 30 

- *"B 3-0*5 -V"3-*- 
A 86 046 V 32 

-A-3 7-O47- V-3-3- 

A 88 050 V 34 
-7*--ff9-tf5T-V"35- 

A 90 000 0000 
-A--91-0tJ'0-A-l-2'3- 

A 92 000 0000 
-A-93-OTTO-OOOO- 

A 94 000 0000 
"R-95-0tt0-tK)tt0- 

A 96 000 A 96 
:-A--97"032-V"3«r 

A 98 053 V 37 
-A-99-O 5'4— V~3 S- 

A100 055 V 39 
■-At01-i>36-V-40- 

A102 057 V 41 
-Ar03-0-60 - V""42- 

A104 061 V 43 
~A105-062"V"44™ 

A106 000 0000 

■ -ato 7-005- otrao- 

A108 000 0000 

aio 9-01*0 -0000- 

A110 000 0000 
-Atll-O00~0000" 
A112 000 A 73 
-All 3- OOO -OOOO - 
A114 063 V 45 
AT15-06-4-V-46- 
A116 065 V 47 
-All?" 066"V-48 - 
A118 067 V 49 



OOO -,2073- 

I40t3074 

000*2075 

000*4016 

000*4016 

000*4016 

000*5101 

000*5102 

000*4016 

000,5104 

004*4105 

004*4106 

004*3107- 

004*5110 

020*41-11 

000*4016 

000*4016- 

000*4016 

000>40T6- 

000*4016 

000*401-6- 

000*5120 

002,412r 

002*4122 

OtlT* 31123" " 

002*4124 

Ot^j-31^5- 

002*3126 

002T21"27- 

002*4130 

0tJ?»3131" 

000*4016 

01-Q-* 21-33- 

000*4016 

000*4016 

0-00-JT40T6- 

030*5140 

oroe»4i-4-r- 

002*4142 
■002T3TT43- 

002*4144 

t) 02 f 31-45 " 

002,3146 

002~»^r47- 

002*4150 

002*3151" 

000*4016 

004*2153- 

000*3154 

000 » 2433- 

000*4016 

000"»40I'6"" 

010*4160 

00 0* 3161- - 

002,3162 

002*2163 

002*3164 

O02T2165 

002*2166 



+ 

TAB' 



"PRIME 

QUOTE MARKS 

STRIKE OUT CHARACTER "=" SPACE" 

5 

less than or = - 

greater than or = 

less- -than 

greater than 



{ 



COLON 



C 

D 

-£" 
F 

H 

-r 



-RlGHT-BRArCKET- 



ABS VAL BAR 



K 
L- 

M" 

-N- 


_p_ 


■R- 



-Nor-= 

UNDERSCORE 
-pERrOD-VM7H-FL-AG--(X:HAR-T55-CA-N'"T- GET" INT 



) 
-QOES-TION-MARK- 

S 
"T 

U 

W 



crozfiiirr 

002,3170 

002Y217r 

000,4016 

Q2QV1173 

440 » 2174 

00Otll-75~- 

000*4016 

0t)Qf40T6-- 

000*0037 

000*0056- 

000,0155 




"X" 

Y 



"LEFT" BRACKET" 
"TAB 



EJECT 

CARR lAGF" RETURN 

PSEUDO-PERI 00 (CAN'T BE GENERATED) 

-ourop-spACE 

OVERLFOW 
-UNDEFINED- "VALUE" 

DIVISION 3Y ZERO 

TLLEGAL~INDEX 

NUMERAL MORE THAN NINE DIGITS 
'-MALFCRMECr 

ILLEGAL LIMIT 
"OPEN" TASfC"* "DO" 

ILLEGAL INDIRECT 



"ILLEGAL" 
ILLEGAL 
ITLEG"A"L 
ILLEGAL 

-ILLEGAL 



NO SUCH 
TLLEGAL- 
NO SUCH 
ILLEGAL- 



DIRECT ' '■ 

DECK NUMBER 

FORM-NUMBER" 

STEP NUMBER 

"ARC - FOR" "SORT 

CONDITIONAL DIRECT 
NO-SUCH"STEP ~ 

PART 

FART - miMBER" 

FORM 

"ARG-FOFTLaG- 

NEGATIVE * NON INTEGER 
TLLEGAL""ARG~FOR"""S'I N~OR~COS" 
ZERO * NEGATIVE 



TERROR-TN"CINE"ABOVE— i" 



r ERROR -TN"-5TEP"r- 



COPY 'STEP "NUMBER" FROM" IT "TO" SY 



ADD" "COLON- 
SPACE 

SPACE 



E- 

-e- 

E- 
-E- 

E- 
-£. 

E- 
-£. 

E- 
-E-- 

E- 
-E< 

£• 
-E« 

£• 
-£- 

E- 

-e- 

E- 

-g; 
£• 



E350 

E36G- 

E370 

£380 

£390 

£400- 

£410 

— .£420-- 
- — E43Q 
•=-■-* £440 — 

E450 

£460--- 

E47G 

— £500--- 
£501 

E503 

— E505 



-#--43- 



020 $ 
020 -Q 
020 S 
010 * 
020 Q 

020-S- 

010 * 

#•-48-0-20 
020 



*-46 



* 47 



Q- 

$ 




—2- 


46 

4 
--0- 

47 

--6 





010 = 

001 --*- 

010 = 
001 * 

010 -«- 



25 

47 

13 

48 
15 



* 49 



-49 
17 

55 



■ooi-t*- 

010 = 

010-*- 4 8 

020 S 010 » 
0-20 " •$- " -0 " 010 - a- -53 

010 X 1 
• * -5 0- -054 -,4451 * 443 * 2 026 

013*0310.461,4425 
022V4S30 .343'* 1063 — ~~ 

023*0510*421*3425 




tTO7 *V6Zt *1BT» 04-23" " " 
012,4331.250,0000 

■OS3itr$5-0»5-HZ»*W2(6f" 
021,4461,541,5452 
rcOTOOO OTO O'OTOOO 0~ 
072*0450,501,2426 
tTT4 * 445-0 > 52T » 20T6" ~ " 
032,4211,063,2025 
-0-3:5 * 4524 » OOO » GOO" - - 
050*4631*461*2444 
023V463 0y6'22T2427-— 
007.0240,623.2431 
-03T»03TIU4-2-»24T&--- 
011,0700,343.4425 
-02-4 » -446rO » 6-&2- » 3200- - " 
054,4450,501.2467 
O07T06-50T4-22Tr46'4~ 
012.4161.103.2062 
-031 »4l<Sr0 » 4-4T » 24T6" - - 
014*4451.461,2427 
-0-1-2 •» 4510 * 3-4-r » 0445- - " 
012.0161. 404*2431 
22* 424 Ov5 23T3'5'0 5™ 
004,4110,662*5200 
3 5- -062 .4-6-4 1 >10 1 » 2451- - - 
010*4431.440,7044 
032-, 062 1 V4-SO » 7022 " - 
012*4161*061*2462 
3170 r6l"»-46T,-4021 — 
022*4161*461*2445 
-007 -,02-40 » 621 » 3 43t - - 
031,4620.342*1446 
0-22 -.42-70 * 662 J-520O-- 
062.0211*061*3046 
024T4440»'5 2r»2 33"' ™ 
025.2000.000,0000 
-0-61 v4-3-ri * 101 » 4463 " - 
007>0441»303*1063 
-007^0220*520*7031--- 
022*4630*521,3425 
024 , -4160 *422v2424-- 
007*1401*061*4444 



SEND ERROR MSG 

CLEAN -UP" OPERAND -STACK. 



CLEAN UP OPERATOR STACK 



CLEAN UP AUXILIARY" STACK- 



SWITCH 

k toe our 



» I NSUFF ICIENT- -STORAGE " Sp-ACEvt- 



"•" OVERFLOW. - f 



'UMDEFINED VALUE. « 



•ATTEMPTING DIVISION BY ZERO.! 



•INDEX VALUE MUST 
0^TNDEX=99T* 



BE INTEGER AND 



" * NOMER AL"S- "MUST ~B E" 
D1GITS LONG.» 



LESS- THAN" TEN " 



'MALFORMED.* 



" * LII-TIT - MUST - BE" ~t NTECER" 
/LIMIT/-10*9.» 



AND" 



E =~--£5 76" "CT4 i 4H3 



E- ES77 

-rE— E-578 

E E580 

-E £581 

E E582 

--E E5 83 

E~ — £584 
-E £585- 

E E586 

-E E5a-7— — 

E E588 

~E— -E589 

E E590 

--e E-&91 

E ES92 

-g-_— £-593 

E £594 

--£* — '£"595 

E-— E596 
-E*-«e-597 

E-—E598 
— £-«>*- £600 

E E601 

--£•* — £-602 

E-— E603 
--e—E-604- — 

E E605 

—£-*»»•«* E&0-£ 

E €607 



--£«-» -&698 

E E610 * 61 

-t-=---f611 

E E612 



E £6 1 4 

-- e»-*»g-ai-sr" 

E — — E616 

E E618 

-E= r - i =E'6'l"9 - 

E E620 

-E*-«£621-- 

E E622 

-Ea»«e62-3" 

£ E624 

-E=«=E6TZ5- 

E— E626 

E E628 

■-£*-«--E62-9-- 
E E630 

-£-■=£■631- 

E E632 

-E^--~-E63-3-- 

E E634 

-E— ---E-635- 

E~ — £636 
-£-==--E6~37- 

£— — £640 



030,1740 

100*0000 

* 58 063,4430 

012,4162 

022*4230 
007*0461 

013*4462 
01 2 > 4-2 6-1 

007*0211 
031,4300 

041,0241 

025,2000 

» 59 071*4300 
01-1,4461- 

022*4240 
03r»0630 

031,4160 
ai-3-s43Tl- 

007,0311 
024,-425-G 

034*0331 

■»-6o-o7rr4-300 

011,4461 
-02-2*42-40 

031*0630 
^)^1--, 41&0 

013,4311 
007*0240 

011,4631 
-0231200$ 

052*0250 
"022*4-6-4-1 

024*4161 
-Q3TT4~rS"Q 



014*4451 
-0-lr2»4-5rTQ 

012,0161 
-OT2V423-1 

030*1740 

lOOTOOOO 

* 62 053*0461 
— -0-22T46-41 

024*4161 



031V4T60 

014*4451 
-0T27WQ 

012*0161 
023-tXVnX 

030*1740 

-1-00 -,0000 

• 63 071*0630 
022T46-41" 

024,4161 
031V4T61 

014,4620 
0OGVS051 

023*5070 



' 00474331 

* 64 050*4631 



»O-O4-*"340T' 

.221*5452 

,000*0000 

»521»0462 

,041 » 1421 

,522*1502 

* 220, 7102- 

,040,7022 

,142,4425 

»122»3063 

» 522*44 16 

♦144,1033 

»o0o-»oooa- 

»623»1016 

*ior*-202i-- 

»342*2064 

» 3 42* 2446'-' 

»441»2416 

»52r»-2445- 

»121»2031 

»463-» 1443" " 

,250*0000 

V6-23T101-6- 

»102.2021 

»3-4Z»206-4-- 

»342»2446 

* 44T* 241-6- 
»521»2445 

* 622V4425- 

»063,4033 

5O-0O-J-0000-- 

»462>1016 

»rOT»10:25~ 

»103»2062 

T4~4tT24T6 - 

»461»2427 

» 3-4T* O4-4-5- ~ 

*4G4»3424 

-, 0-44»34-0r 

»221»5432 

',00070000- 

»222*2016 

»Tor» 102-5- 

»103»2062 

» 4-41,2 416- 

»461»2427 

T341T0-4-45" 

*404*3426 

,104 » 3401 " 

»221»3452 

,000 ,0000- 

»322*3416 

710TTI025- 

»103»2062 

-,-4-4T»04-63- 

»543»4016 

* 443* 142 5 

»023»0174 

-,250*0000- 

» 46 1*2444 



'PLEASE 'CANCEL* OR 'GO' BEFORE 

ANOTHER » 00 '«'¥ " " " 



'THIS COMMAND MUST NOT BE 
--GIVEN-INDIRECTLYV 



"'THrS~COMMAND-MUST NOT~"BE~ 

GIVEN DIRECTLY.* 



'DECK NUMBER MUST BE INTEGER AND 
-"0-~TJ£C!<.-T0^9Vr 



'FORM NUMBER MUST BE INTEGER AND 
— tr-FQRM--TO*SV»- 



'STEP NUMBER MUST SATISFY 1-STEP-10*9. ♦ 



'ATTEMPTING SORT OF A NEGATIVE NUMBER,' 



--£—** £-641-- 

E £642 

--E E643 

E E644 

— E E645- 

E E646 

--6 £647- - 

E E650 

— E— - £651— 

E £652 

— E— -E653— 

E E654 

— e — e655— 

E E656 

— E £657— 

E E660 

— g-"-"-e&-6i — 

E E662 

— E- — £663— 

E— — -E664 
--E«- w - 5 E665 __ ' 

E E666 

— £*— '~£66r? — 

E— ' — E670 
— £—- -E671— 

£ £672 

--£ £673— 

E E674 

— E>— «—£675 — 

E E676 

- - E •*—— £-6 77- - - 

E E680 

~E- £681— 

E— -E682 
—£--*--- E683 — 

E E684 

--E~~~£685— 

E E686 

— E-'— 'E687 - -- 

E E688 

— £ £689— 

£ -E690 

— E«—E$9i— 

E—E692 
--E £693— 

E E694 

—£ HE695— 

E, — -E696 
~E— -£697--- 

E E700 

— E — -£761—- 

E E702 

— £"— E703 — 

E E704 

— £-—£70-5— 

E~E706 
--E £767—- 

E £708 

-£ — e-7-i-e— 

E E7U 



65 



023 » 46-30 » 622* 2427 " 
007*0621*202 »44&3 
007 » 0460 » 540 » 70 21 
007*0450, 521*3421 
031»4311»521»2416 
022*4641*101*1025 
0^24 * 433 1 * 250*0000 - 
052*0311*221*2423 

0-31 » 4160 * 462 » 3 44 - 

022,0211*121*2062 

■ 7 » 0441 » 3 03 ^10 63- 

007,0220*520*7064 

#22 * 423-1 * l42-f2424- - 

014*4630,622*3045 

fMO » 4430 * 662» 52-00 - 

* 66 071*4300*520*7062 

3 1-Y4251-V16 » 70 23"- 

010*4431*061,2424 



•DIRECT COMMANDS MUST BE UNCONDITIONAL.* 



007 > 0-261*142» 44T6- 

012*0460*523,1045 
-0-40 i 4630 » 3 iff » 24 67 - 

014*4621*461,5452 

— 10Q-* 0000*000 ,0000" 

* 67 071*4300,520*7047 



-q-3-0 , ^5-j-j , 4^-0 f 70 ^3- _ 

010.4431,061*2424 
120/7 » 026-1 * 14-2- » 441-6- - 

012*0460*523*1045 
040 ,4630 »341-»2467™ 

014*4621,461*5452 

-i-eo^oooo*ooo*-oooo- 

* 68 063*4211*223*1416 
^5-22 * 4641*1-01- * 1025- 

024*4161*103.2062 
03 1~» 416 Oy441-»2416- 

014*4451*461*2427 
012 » 4-51-6 » 341- f 4 45" " 

012,0161*404*3447 
0-10* 45 1 1 » 464 » 3401 - 

030*1740*221*5452 
• " tOO» 0000* 000*0000- 

* 69 071*4300*520*7026 
- — - - - "02 3 -*t>51- 1 »ia0 v 7023 - 

010*4431*061*2424 
00 7 ,026 1 ,1-42 » 441-6 - 

012*0460*523*1045 
040»463G»341»2467-" 

014*4621*461*5452 
-tGe,0O09*O00ir0&©0- 

* 70 050*4631*461*2444 
-023 -»4&-30 *622* 24"27 - 

007*0431*141*3416 

023'"»026'0"*34r*04-16" 

022*4461*122*3446 



0-31 *03-t 1 * 4-6-1 S44-6-5 " 

s 012*4161*123*2044 

-01-1 > 0231 *22^1-r 54-52 

100*0000*000,0000 
-*— 71-050,463l-»461-»2444- 
023*4630*622*2427 



*THE STEP CALLED FOR 0QE5N«T EXIST.* 



♦THE PART CALLED FOR DOESN'T EXIST,* 



'PART NUMBER MUST BE INTEGER AND 
--0^PAR-T---l-Q*9-»-» 



♦THE FORM CALLED FOR DOESN'T EXIST*' 



♦ATTEMPTING LOG OF A NONPOSITIVE 
--NUMBER"*-' 



'AT-TEMPT1NG-NEGA-T-IVE--8ASE-T0- 
NONINTEGER POWER.* 



"£---£712 

E E713 

--E E-71*---- 

E E715 

-• E~— — E716 

E E717 

-E E718 

£ E719 

--E £7-20 

E E721 

_ E E -722 

E E723 

-E £724 

E E725 

-E E-726---- 

E E727 

-e — e72s — 

E E730 

- ~cr^^^{£~'^3 1 — ■ — 

E E732 

-£— E-733 

E~ E734 

- £-_-.«. £-7-3- 5 

E E736 

--e— - -E-737 

£~ — E900 
-€-—£■981 

E- £90 2 

-£-—£903 

E— 7-E90A 
-£~-^995 

E E906 

-£*--«£-907 

E— E908 

E E910 

'~S«— — E911 

E E912 

-£«*»* E-9I-3- 

£ E914 

-e-««g-9i-9 

E< E916 

E £918 

-E~ — €919" 

E E920 

-e— E-9-2-1 

E E922 

•-£-~*-£92"3 

E E999 

■-Fe&OEOOO-K — 

FGOOEG10 
-F009E&20 

F000E030 
-F0OOEO-4-O- 

FOOOE050 
-F00OE060 

F000E070 
-PO0GE08G- — 

F000EG90 



-72 



* 73 



007 
031 

01-1- 

031 
022 
013 

- 0-2-3 
025 
05 
023 
007 
023 
031 
022 

■0-31- 
043 

-025 
050 
023 
007 
007 
007 

-031- 
023 
0-3:5 



» 

- •#---!- 

* 2 
-* — 3- 

* 4 
--»--- 3- 

* 6 
--*- — 7- 

* 8 
-* 9- 

* 10 
"^-ti- 

* 12 
■*-t3- 

* 14 
-#-1-5- 

* 16 
--H---17- 

* 18 
-«-I9- 

* 20 

-*-2-i- 

* 22 
"»-23- 



i045~0." 
*4311» 
.02 1-1- » 
.4460. 
.4311. 
♦4251. 
»0660» 
.2000. 
.4631. 
.4630, 
.0620. 
,0510. 
• 0-161 ♦ 
.0210, 
»4640» 
.0011. 
.200 0» 
.4631. 
.46-30. 
.0710, 
.0631. 
.0450. 
.4311". 
.4461. 
.45-2-4. 

* 50 
-*~3-t- 

* 52 
-#-5-3- 

* 54 

-*--g-5~ 

* 56 

* 58 



52T.342T 

521.2416 

441", 24 16- 

342.2446 

123.1425 

220.7047 

522*4433 

000.0000 

461.2444 

622.2427 

622*2416 

341.1446 

141.3016 

562.2431 

501-.2416- 

403.0033 

000.0000- 

461.2444 

622.2427 

522.4446 

140.7021- 

521,3421 

52T»2416~ 

541.2451 

OOD" 



-F--0 



100 

-0-1-0 

024 

-023 
020 
1023 
020 
50 
071 
050 
004 



--S-59- 

tt 60 

-*-TSrI" 

* 62 
-*--S3- 

* 64 
-#- 6 -S- 

* 66 
-*-t&7- 

* 68 
■■#--6-9- 

* 70 
-*~71- 

» 72 

«--73- 

0000 

-S---0- 

K 2 
"Q "3- 

$ 
-p— -5- 

P 4 
-T---1- 
32 

-p— 4- 
P 6 



00-00-- 

* 50 
*-5rl— 

* 52 
— — *-53— 

* 54 

*-grs— 

* 56 
*--5T"' 

* 58 

#~59~" 

* 60 
«-6t- 

* .62 
—— -*-63- 

* 64 
#-65— 

* 66 
«-$7- 

* 68 
#--6-9- 

* 70 
#_ 71 _ 

* 72 
-----*— 73- 

000 0000. 

052 * 9 

002"* 9" 

010 = 11 
001-E-t4-r- 



' ATTEMPTING - SIN 'OR- COS- 
OF MAGNITUDE -100. » 



•ATTEMPTING ZERO TO A NEGATIVE POWER.* 



071 

060 -r 

072 
G20-T" 

002 * 



8 
1 

-r 

1 



Y-s-SGRTtX)--- 

SET EXIT 
■'TRAttSFER-rF'"X*0— ™ "~- - 

UNPACK X INTO P4, PS* P6 

T R AN 5F E R" TF " X" NE GATI V E~ " ~ 

COMPUTE 1/2 SFX 
"STORE- IN-P4 

T EST" FOR ODO-OR- EVEN'"- '""'" 

IF ODD 10.P6 TO TO 



-"FOOOEIOO""" 
F000E110 

--F600E120-- 

F00QE130 
— F-OOOE i'4G~~ 

F000E150 
--F00OE160--- 

F000E170 
--FG00E180-- 

F000E190 

— Foooeaoo— 

FG00E210 
— FGOOE22«— 

F000E230 
--F00GE-24G--' 

FO0OE250 
—FQQ0E260— 

F000E270 
--FGG-1-E9SG4-- 

FOOIEOIO 
~F60te826— 

F001E030 
~-fGOlEO40— 

F001E050 
--F601-eQ6G— 

FG01E070 
— F60-1-E-G8G— ■ 

F001E090 
— PGOi-El-OO— 

F001E110 
— F8Gl-ei-2G— 

F001E130 

— Feei-E-i4G— 

FOG'IEISO 

— poo-te-wo— 

FOG1E170 
-~FeGi-£i8«— 

FC01E190 

"feotezee— 

FG01E21G 
— FQG1-&220— 

F0O1E23C 
— FeO±E-24-0— 

FG0XE250 
~F©O-tE26-0— 

FQO1E270 
-F8a-tE-28G— 

F00IE290 

~ FGGi-esee— 

FCG1E310 
--F6G1-E-32G-- 

F001E33G 
-FGOtE-340— 

F001E330 
— FGG1-E36G— ' 

FG01E37O 
— FGGi-e38G-- 

F001E390 
— FOOtE400— 

FC01E410 



if 



-TF3Z 
020 

'060 

050 

032 

020 

020- 

025 
050 

025 

— 020 

037 
020 

002 

0-24 

* 3 020 
"♦ — 9-010" 

*_ 90+. 

:r F-- 1 l-frro 
024 

"J>23 

( 020 
023 

020 
-0-5-0 

052 
- ■#---!- -0-50 

025 
020 

050 



"I" 

9 

-o- 

6 

8 

6 
-6- 

1 
-6" 

4 



P — 6 
N 8 



P-- 

K-" 

S 



b 

3 

-1 





010 

020 

004 

044 

065 

073 

072 

020 

006 

004- 

044 

064 

020 

050 

010 



T"U' 

* 2 

* 90 



"AND" T0E9 - TO " P6~ ~A~5~ YTO ) 





&' 
1 

-1- 
1 

T~ 
2 

0" 
6 

t—2- 
P 6 
P---6- 
* 30 



SFX' -EVENV -X " TO" TO 

AND SORT (10) + EPSILON TO P6 
T 1=Y ( N )- ( 10E8.X/Y (N ) ) =DELTA ~ 



~P6=Y ( -N+1-) - ( 2Y-DELTA :)/2 



TF- DELTA" "GREATER " 
10E4t ITERATE 



TWA-fT OR" "EQUAL- -TO- 



IF (YCN+1-) + 
-IS- LESS- THAN 
Y(N+1) 



(Y(N+1)-A.10E8I/Y(N+1))) 

-ZERO?- "ADD" OWE "TO" 



RESULT 



« 



— 024 

2 020 
— 05-0 

025 
■—060 

050 
—050 

3 050 
040 

064 

030 

020 

005 

* 4 010 
-0^0 

072 

020 

050 
-03-2 

024 
0-36 

050 

oo r 

* 5 023 

* 6 G21 

00-5 

024 

020 

* 7 014 



316227800- 

-s~- 

K 2 052 
-G---3-Q02-- 

S 010 
-p— 5 : "dbl- 

P 4 072 

-p— -4-020- 

* 6 120 
-T— -t-0 20 

#91 002 
P — 6-073- 
P 6 020 

i— i-oio- 

P 6 024 
T— 2-020 - 

* 92 040 

T 2-0 30- 

T 3 120 
T— G-0-2G- 
T 4 020 
T--4-G20- 
T 004 

-T- 3-050" 

T 4 025 
*---4-©-24" 

* 3 004 
T— 2-0^*- 

1 050 
i — 3-025- 
T 1 004 
T~ T-0 60" 
004 
4-077 
050 
*T2 "060- 
T 006 
1--T-0-50- 
N 1 024 
*---7-02G 
K 2 052 
T — 3-024" 

* 16 020 



--39 1 



» 9 

F : 2o : 

■. 31 
*-96" 



PACK 
"EXT T "~~~ — * ~~" 

SORT (10) + £PSILON_ 
-Y=LQX5fXV-^WA$£ "E" " ~ r " r - : 

SET EXIT 
-X-0--I-S" -AN- "ERROR 

UNPACK 
-X-NEGATIVE-TS-AJrERROR- 

SFX AS AN INTEGER 
-I-NT-TTAti-2:E- -ADDRESS- 



p— a- 

* 2 

r 

T 1 
*--!- 

* 92 
P— 6" 
T 2 
T — 2" 



-SEr-QaO 

IF COEF(X) LESS THAN LOWER SOUND; 
-2-C0EFC-X-)-REPirACES-rT-AN0 ~ 

Q+l REPLACES Q 
-COMPUTE - 1 -FOR" "SERIES "AS" "EOO AL" 

{COEF(X)-{10^8)(2»3) / 
TC0EF<-XT+T1G*3T(2*3) 



TO" 



T 
-P- 

T 



#- 95- 
I 1 
T---0- 
T 
T — 0~ 
I 4 
I--2- 
T 
T— 2" 
T 
T — 1- 

* 93 
T---S" 

* 94 

-~2" 
T 5 
■T— 1" 

* 14 
T---3T- 
T 
■#-— 6"- 

* 6 

■I- 1- 

T 3 



-Z--T N-T 2 -V-2#2 - 1 NT 3 

COMPUTE 1/2 .LOG ( X ) =2+1/ 3 ( Z»3 J + 
"I / 5(2* 31-+Vi- i + 17 1 3 ( 2*13) 

T4sDELTA = 13 
T0=LOG(X-)=0»-it5iT1ALi:Y 

T0=L0G(X)+(1/DELTA) 
■TOa-( LOG ( X ) + U7DELTA )) .~2*2 

TRANSFER IF DELTA WAS 3 
-DELTA=D£tTA*2- 

(Z.L06(X))+Z 
-T0-LOG(XT/4 



T 5=1-3-^0 JvLOGt 21-/4 

LOG(X)=4.(EXP(X).L0G(10)+T5) 
INTEGER- T N" "ACCUMULATOR - AND " TO* 
FRACTION IN MQ AND Tl 

TRANSFER-TF"TOG-IS""NEGATTVE- 

•*•••• NORMALIZE ».*•«* 

r F- TO - 1 S- GR E ATETR - THAN " lXJ^T ? " THEN 

SET I=I+1» ITERATE 



T5" 



IF TO IS LESS THAN 10*1 t THEN 



-F COTES 20--' 

F001E430 
- TOO IE 440"- 

F001E450 
-F00TE460 - 

F001E470 
--F0O-1-E480— 

F001E490 

- -fogies 00--- 

F001E510 
-F0O1E520— 

F001E530 
-F60-te540— 

F001E550 
-F0O-1E56O-- 

F001E570 
-F-001E580— 

F001E590 
-FG01-E600--- 

F001E610 
-F0Ote62O— 

F001E630 

-pooi-es^o — 

F001E65Q 

■-Fatrx-Eeeo--- 

F001E670 

--Feoi-e-6-at)— 

F001E690 
-Ftr0T£7O0 — 

F001E710 
-F0Ol-E-72tT- 

F001E730 
-F001-e740— 

F0G1E750 
-pC0T£T6"O — 

F001E770 
■-FO02EOO-O--F- 

FG02E010 
■-F0O2C020— 

F002E03O 
"F 002 £040 — 

F002E050 
-Fe02E06t)— 

F002E070 

-Fooaeeeo— 

F002E090 

-FOO2ETC0— 

F002E105 

-Fo-02etitr- 

F002E120 

FQ02E140 
-P002ET50— 

F002E160 
-F002EI7XT — 

F002E180 
■-F002ei90— 

F002E200 
-FO02E-2T0— 

F002E220 






-Q-Z5 

020 
056'-*' 

* 8 004 T 

# 10 004 

060 
11-073 
020 
-070 



-« 



T 
P 



■to 



97 025 

-8 "OSS' 

1 030 

- 036 

6 020 

31-050 

5 124 

-9 050" 

-■ Q2Q-S"- 0-010 

9 : -010r-~— ■'■'•'-■ 

* 12 061 T 1 006 
-1-25-K---4-Q5Q- 

022 T 025 
■ '»- -20-0 50 - r " -0 - 010- " 

* 13 050 T 1 022 

-»-i^0l0"*""20~023" 
002 * 19 004 

* v -15-t*2tri— -1-050" 
032 N 1 025 

-00"2 -*- 1:6- 020" 

024 I 1 014 

-ff-rr-o 2o~t— 3-02 5- 

024 * 96 056 
■■*-n-OQ4-T—t-0-3Z- 

032 N 9 050 
-02T-T--- 3-0T0" 

* 19 050 3 010 

-*-90*-^-3T6Z27800- 

* 91+ 565685425 

■tt -92+- - — sootrooooa - 

* 93+. 17328679514 
w -9 4+VS7 564-62 7325 - 

* 95+ 13 
-«~96 N — 1 

* 97 N 9 
T 2-0T0~$ — 

024 K 2 052 
023-tJ— 3-^01" 

* 3 020 N 3 050 
-QT0""*— 9 

* 1 020 S 010 
— 0-20- P— 6-040 

060 T 020 
-0-72 31-050 

002 * 2 024 
— O-i-w— 3-0 22" 

025 I 1 010 
-024-*- -9 1-056 

120 050 

■*—tr 004 - T - -0 - 044 
060 T 070 

_ o5o-~r — 0-01-4- 

2 025 I 3 001 



p—Tf 
T 3 
*" 10 



~P4=EXP f Y ) = r~ 1" TtND" THE "M AGN I TUD E 
/FYs{T0+(2iH~39))«Tl),10*(9-I) 



4 
4 
4 



PACK RESULT 

'EXIT - 

-GET" -ABSOLUT E-VArDE" OF -NEGATIVE" -C06" 



P 
P 

K 

p— - 5 

*"'30""~^ 

* 13 

■t— r— - 

1 1 
#--- 5 - — 

T 

T— 1 

T 1 

T---5 

I 1 
T— 3— - 

* 15 

T — 2 

* 17 



P6=Y» SHIFT EXP(Y) 

P4*SFY 

SET SIGN OF LOG 



■L'0(T~IS-UESSrTHAN"ONETTEST~FOR- 
LOGaZERO 



P 6 

#-ir- 

* 9 

— 39 - 

39 

—3-9— 

00 

— oa- 
39 

N — I - 
N 9* 



-$GRTTrQT+"EPSTUON 

(2E3){10E8)(SQRT(2}/2) 

-f2E3TtI0F8T 

L0G<2>/4 

-L0G"fT0T7-4- 



■# 9 

-*---£- 

Q 3 



-Y~s"E*X 

SET EXIT 

-irx»o»-SET- 



T=T "AND "EXIT" 



- 11 



-N- 

P 

r 

1 

T 

S 



-9 

4 
"T 

9 
T" 

1 

" Te 4 " 

P 4 



UNPACK NON-ZERO X 
"N EXf -COEPfX ) " IS" -COEFTX ) " T T *9 

SFX SHIFTED TO 2#-39 POSITION 
-STORE" WT1 

IF* SFX IS LESS THAN -9» SET Y-l 



ADJUST SFX BY ONE 



SFX FOR RESULT 



" 8- "023 -p-~ -5-O-O2 



120 014 
--#--- 6_ -0-24- T" -1-005" 

020 P 6 025 

-*— T-002~» — 8-020- 

024 I 1 024 



2 COEFU) /4 FOR SERIES 
"*""~5 I'F-SFX-rs-3-OR-M0RET~CHECK SIGN 

* 6 OF COEFtX) 

' E" " T OVERFLOW TOR" VOS I TTVE " NOV 

* 3 SET Y«0 FOR NEGATIVE NO. 

" *" ~ 7 IF" SFX =2 V XOEFTX } " MUS T" SE T ESS" ~ " 

* 92 THAN LOG (10) TIMES (10*8) + 1 
■T"~l— 1 F ■ GREATER t~TEST"S 1 6N" 0F~ COEF 

* 91 



-FQ-02E23IT 
F002E24G 

--F0O2E-25O- 

F002E260 

-F002E270- 

F002E280 
--F0G2E290- 

F002E300 
-F002E310- 

F002E320 
-POO 2 E3 30- 

F002E340 
--F60-2E35O- 

F002E360 

-FGO-2E37G- 

F002E380 
--FO02E-390- 

F002E400 
--F60-2E4iO- 

F002E420 
-FOO-2E430- 

FG02E44Q 
-PQO2E450- 

FG02E460 
-F6G-2E-47G- 

F002E480 

F002E500 

-F-0O2E51-0- 
F002E520 

-F6G-2E-53G- 
F002E540 

-F80-2E-550- 
F002E560 

-Feo-2E5-T0 



it 



-11- 



F002E580 
-F9S-2E-62^-— 

F002E630 
--FeG2E64-Q 

F002E650 
-PC?02E ; &6-0 

FC02E670 
-F6-0-2£68G- i — - 

F003EOOO-T"""" 
--F6-03E-9-1-0- 

F003E020 

-PG03EG50- < 7 L 

F003E055 <? 
-F6G-3-E-66G- 

FC03E070 
-F6G-3E08G- 

F003E090 
-P003E100 " 

F003E110 
-FG03E12G- 

F003EX30 
-FQ-OSEl^f) 

F003E150 
-PO03E±6O ~ 

F0Q3E170 



"056" 

030 

*-io-004 
Q50 
072 
060 
006 
050 

oso- 

050 

#--1-2 050 

076 

0-30- 

050 

0^5" 

025 

004- 

050 

0-30- 

* 18 050 

0-32- 

050 

025- 

004 
02-5- 

004 
^- 25 . 

004 

— — 025- 

» 13 020 
—0^6- 

064 
-*--t5-l-2-0- 

* 14 060 

— —050- 

073 



"*"T0 

* 93 

■T---0 

P 4 

— 2 
T 

T 
p —fy 

T 2 

T 1 

39 
T---1 
T 1 
I—I 



1 
1 

1 

-1 
I 



'DWT" 
50 T 

-032-— 
060 T 
044 * 
023 P 
021 T 
021 P 
020-*- 
020 * 
020" T 
044 T 
024-*- 
020 T 
050 T 
006 * 



030 

004 



N--1-0 

P 6 

-I — 2 

I 3 

N— 1-1- 

I 2 

•N-irG 

I 1 

■N— 9 

* 91 

•*-ir5 

P . 4 

P 6 

-p—5- 

31 



--JS-- tT-02-9- 
* 9 010 



-0- 



-010 * 

004 T 
-077 

020 P 
-090-P 

020 P 
-QOZ~* 

020 P 
-002--* 

020 P 
"005-*- 

064 T 
-0-20--P 

004 P 
-9-44- — 

120 
-020-P- 
050 P 
G1D-* 



_- - 



93 

5 



4 
95 
94 

■ o- 

2 
94~ 

2 
--2" 

12 

.... j... 

1 
-1-8- 

1 

4 
-4- 

6 
1-3- 

6 
-1-3- 

6 
-T4- 

1 
--A-- 

6 



~rCCEFTX")T (LOQTEVf'CLESS "THAN" ONET" 
IN TO 

TO TIMES It)* (SFX PLUS" 1) 

INTEGER PART TO SFX FOR RESULT 

FRACTIONAL-PART /4 TO XBAR "™ ""' 

-XBAR- -FOR- SER I ES - 1 N" "TO » - USE - 12" -TERMS 



SET- DIVISOR-FOR-SERTES--- 
SET LOG - 1/2 

COMPUTE 1/2 CE*XBAR> e Z 



<Z*4) (10*10) { 16J a E*X 



ADJUST SFX BY 2 



NORMALIZE E*X 

-RESULT " LESS "THAN " t lv6 ) t TO* I 1 ) 

AND GREATER THAN OR EQUAL TO 10*8 



-ADJUST -SFX- " 



-seAi.-e-E*x- 

CLEAR SIGN OF E*X 



-4- 

4 
-30" 



"PACKr -RESULT- 
EXIT 



--#--91 — 

* 92+ 230258510 
-*-93-+-jr 43-4294481 90- 

* 94+. 50000000000 

- -*" -9 5+r.- - - - - - - - - - - rl-2 

"F 3 000 "K 010 

-G24-K---2-0-52: 

020 T 0^002 
0-20-p--"5-OTf 

* 1 050 P 5 020 
0-72----3 1-050 

005 * 2 025 
~ 002"E~"22~024" 

024 J 11 056 
00^4 -p-- -6 -032 

044 * 91 050 

025 -*- "92-0 OT 

050 T 1 020 
-4-050" 
1 040 



-N- 



"W 

P 
P- 

I 

r 



39 

-oo — 

00 

33.*-..:. 


.^9_-'~ 

"1-1 

-9--- 

4 
--4--- 

2 
_ 4 _ — 

I 



LOG (10) » BASE E» TIMES 10*8 PLUS 1 

logc rrr-BASE-io 

1/2 



SIN(X)— SET FLAG IN MQ«-1 

_ S £T~ "EX IT 

TTORE~FLAG IN TO 

"UNPACK" ! " 

FOR COSINE SET'PS EQUAL TO ZERO 
-SM-IfT-S-I-SI*-0F-X-T0-sr6N-8TT 

SHIFT SFX TO 2*{~39) POSITION 
-TRANSFER" "IF "SFX" I S-NEGATTVE 

NO, OUT OF RANGE IF SFX IS 2 OR MORE 
- LOCAT I ON -TT0*TS FX+2 )) ' 



. 024-St'- 

* 3 020 T 



T 

-#- 

P 
-p- 



"— X=XV(10*LSFX+I0r) 

1 COMPUTE X/2PI 
--3 XsREMAI NDER- "IF" -X "LESS "THAN -P-Iv 

5 OTHERWISE X«=X-PI 

-3 CHANGE "S IGN " ™ 

92 X/PI IN MQ 



F003E190 
-FOQ3E200- 

F003E210 
"F0G3E220 

F003E230 
-FQ03E24fr- 

F003E250 
-F003€26t>— 

F003E270 
-PO03E28C— 

F003E290 
-FQ03-E300— 

F003E310 

F003E330 
-F003E340— 

F003E350 
-F0O5E-36t)--' 

F003E370 
-F©03£38t)— 

F003E390 
-FD03'EW0 — 

FQ03E410 

-peo3e42t>— 

F003E430 
-Fe03'E44tr-- 

F003E450 
-F-003E'4'St3 — 

F003E470 
"F3t)^E-48tr- 

F003E490 
-F0tT3E50tr- 

F003E510 
_ F'003E52'0~ 

FO03E530 
-FC-O3E54-0— 

F003E550 

-FxroyEseir" 

F003E570 
-FI5-03E5'S0-~ 
F0Q3E590 

-F-005E620-- 
F003E630 

-F-003-E64-0--- 
F003E650 

-F0O3E'6"6'O— 
F003E670 

-F00?E6Btr— 
F003E690 

F003E710 
-F003ET20— " 

F003E730 
-Ft)03-E7*0— 

FQ03E750 

-Fotmeoc-o— 

F0O5EO0O+ 

-F'COS'EOIO— 



■■•»■ 



— ■*>■ - 



# 



"W" 



«- 



-2-OTf 

006 
-5-0T4- 

056 

15 040 

4 044 

065 

002 
— -027- 

6 004 
"077 

020 
8- -00-4 

7 024 
---0-O4- 

024 
—025" 
032 

— 1-24 
070 

—WtT 
073 

— OTT 
050 

— - fr&2" 
002 

--&5-0- 
020 
■020" 
002 
-025" 
020 
— XF5Q- 
56 
024" 
073 
14-0-04" 
060 
— ~UZQ~ 
010 
-020" 
050 
-91-+— 62 
92+ 31 

"93+- 

94 040 
"95-0O0 

96 177 
-0-GO 

177 
-0-02 

153 
062' 

97 024 



r 

T 



13 



* 12 



#---4" 024"' 

* 5 004 
*- -4-024- 
#15 020 

N 9 032 

* 92 020 
T--T-020 

6 020 
1-0-50- 

1 033 
- 2 050 

* 98 052 
-#--95-Q3T' 
, 050 

P---6-02O 
K 2 052 
■*-97-O03" 
T 1 050 

r— 4-024- 

9 050 
S---0-0-22-- 

2 003 
—-40-030" 
P 6 025 
#-TO-0-23" 

* 9 021 
P---4-OT0- 

* 99 050 
•p — 6~025" 

* 12 020 

r _ row 

* 99 025 

* 14 021 
"I 8"~Q24~ 

31 050 
"F " -6-032- 
P 6 010 
-$-— 0-OTO" 



K 
J-1T 
P 6 

* 94 
TO 

* 94 

■t— r- 

T 1 
T 2 

* 7 

T""2" 

P 6 
S - T - 

* 7 



"IF" SFX - LESS " THAN --1T>" 7 5ET "X»0~ 

"LOCATT "ON" "(TO* I SFX+1 X) ) 

x = ( (x/io*9>;"10*(ii+sfx) >/pt. 10*10 

X=1/2~X FOR COS 
-TRANSFER" TO -SINE -OR- "COS 

FOR SINE X*1/2~ABSQLUTE VALUE 
-0F"TT-(17Z-X1 

-X»2 

-4(X#2) 

INITIALIZE SERIES FOR 1/4 SINE 



P 6 
■p—g-- 

P 5 
•p— -5- 

* 10 
N — 9" 
N 9 
P— 6" 
I 9 

s— r- 
» 11 

■pi — g- 

* 11 

*-T3" 

* 11 
XT!" 

r 1 

P 4 



TEST FOR OVERFLOW (RESULT*!) 



T EST TOR" "RESOLT=0" 



PRESET INSTRUCTION FOR NORMALIZATION 



-NCRM-ATI2F "RESULT" AND 
"A D 'J US J " 5CAC E~ FAC TOR" " 



s 1 
=-"30" 



9 
TO" 



a 

"F" 
"F~ 



F005E020 



9-8- 

99 020 
-ZT-0-04 
"5—OXO 

024" 

020 



p 5 _,. 02C :- N g 

Q 3 010 * 9 
W8 33-072 — 39 

415926536 39 
TI 39 

»0000»000»0000 
T0OO0VO03T5173 
»7777»416»5664 
»-0025-»OT6> 65-53 
»6632»264»6777 
V43-l5-»3-6T» 4-63-4 
»2504»143»1673 
T2Q77V325T0420 
* 97 050 P 6 
-•r-96 *--96 

P 6 025 N 

KT--0-OT4-F-- 

S "0 

■K — Z~03Z~*~ 

S 010 = 



"PACtC 'RESULT 

EXIT 

"RES'ULT"TS~ONE 

C0M8INE WITH SIGN AND EXIT 

-2-pT-i"rO"»!0 

Pl.lOnO 
"ELEVEN 

1/2 

"COEFF I CTENTS ""Al 3TAT1TT.T »A1 

TAKEN FROM ILL I AC SINE ROUTINE T5 



_ AT __ _ 

TEST WORD FOR END OF SERIES 



a» INITIALIZER FOR *I1 

3 * " - - - "COSTX y~~"S£T-FrAG- TNT "RQ =0" 
IP(X) 



~9- 
11 



UNPACK (03) 



— P0O5E03t) 

F0Q5EQ40 
--FG05E050- 

F005E060 
— F005E070 

F005E080 
--FGOSEG90 

F005E095 
— F005E100 

F005E110 

— FOOSEi-20 

F005E130 
--FG05E140 

F005E150 
--FQ06EGGG+-— 

F006E010 
— FG06eO-20— 

F006E030 
--FeG6£G4G---- 

F006E050 

- -F.eoree eo+- — - - -p 

FG07E010 

— F0O-7EO20- 

F007E040 
— FGG-7E-05G-- 

F007E060 
--F GO-TEG 7G-- 

F007E080 
— FOO-TE090 

F007E100 
-FG0-7E-11G- 

FQ07E120 * 
— FGG-7E-13G- ■*-■ 

F007E140 
— F-GG-7E-1-50 



# 

-»-- 



F007E160 » 9 
— Feee€-80fH- — -F— 8- 
F008E01Q 

— Feoeeeso- 

F006EG30 * 9 
— F0G9EG0G+ F 9- 

F009E010 
--FGO9E82-0- 

FG09E030 
--F€H>9£84-0- 

FCG9E050 ♦ 9 
-FG-H-EGGO-+ F— 1-1- 

F012E0G0 F 12 
--Fei-2£81-Q- 

F012E020 
-F0i-2E63G 

F012E040 * 1 
-RM-2 E G 50 — 

F012E06G 
-FG-1-2EG70- 

F012E080 * 2 
--F0-W&O9O •— 3" 

F012E100 * 4 

-F0-1-2 E f 1-G *— ' 9 " 

F012E120 * 91 



-XTZ3' 
02G 
120 

010 
050- 
002 
025 

056 

-056- 
004 

ooo- 

060 

-0-20- 

010 

024 
-0-20" 

020 

0-20- 

010.. 
-0*0- 

024 
-020- 

020 
-1-20- 

021 

-0-2-e- 

020 
-050- 

002 
--O-G-4- 

020 
-056- 

060 
-020- 

010 
"0-24- 

052 
-1-25- 

010 

-oro- 

024 
•0-23- 
020 
-0-24- 
010 
-004- 
004 
•0-24- 
060 
020- 
020 
-020" 
020 
020- 



GT" "3" 002" "*~~ "9" 
P 4^:006 * 1 
----0-050 -Q-- 3 



T 

T- — 

* 2 
*---3 

P 6 



P 6 



9 072 

0-025 

9 020 

0-024 

010 

1-20 

044 

032 

010 



31 
8 
8 

-1-1- - 
1 

- 



"ZERO" "RESULT " FDR "ZERO "ARGUMENT 

ZERO RESULT" IF NEGATIVE "SFX 

RESULT = ARGUMENT IF SFX BIG AS 8. 



CHOP FRACTIONAL PART 



$-—0-0-10 



s 1 
=-30 



PACK- -RESULT - INTO- 03" 



K 2 052 * 9 
3- -0-010 = 12" 
$ 010 F 5 
$-- -0-0-1-0 -a- -32 ■ 



-FP(X) 

PUSH OPERANDS- 

IPU) 
-X--I Pi X } =F P ( X ) 



■S---0- 
K 2 
-$— 0- 
P 4 

— e- 

P 4 
K— 1-2- 
P 4 
P — 6- 

* 3 
N— 8- 
K 14 
p— *- 
P 6 

-$ — o- 

K— 2" 

* 9 

K--1-1" 

■s — 0- 
K 2 
3—3- 
3 
N- — 8- 



052 

■oio- 

001 

e-i-4- 

50 
■0*0- 
072 
•025- 
120 
O-10- 
004 
0-32" 
010 

■oi-o- 

020 

o*u- 



* 9 

-=--11- 
it i 

■*— 2" 

P 4 
P— 5" 

31 
■N — 1~ 


■*—«■- 

N 7 

P— -fr- 
S 1 

-a— 30~ 

S---Q-- 
Q 3 
Q---3" 



SFX(X>- 

• UNPACK- < 03 r 



•pACK-RESUL-T-rNT0-Q3- 

-CPcxr ■- 



052 * 9 
G02--*---9- 
124 K 12 

05-o -a— -3- 



-SGNCX)- 



. < _ 9 . 1 _ . 10 _ $ __ _ 

# 92 010 S 
K — 2-0-&2"-* — 9- 

# 2 010 S 1 
Q---6-001--E---6- 
Q 3 050 H 21 
Q — 7- 050 ■ H" 22" 

S 010 a 17 
$---0-GTO-*--70- 



-MAX- 
MIN 



"MALFORMED TF-NOT-MUL-TIPUE--ARGUMENT- 



"COMPARE" 



02© - H- -22 - 050" "0" " "3" " 

020 7 002 * 1 

■oa-o-- — ■-■ — - — — 

071 4 001 * 4 



FOR MAX 



-Foi2£r3tr- 

GOOOEOOO+ 

--Goooeoio 

GOOOE020 
-GOOOE030- 

G000E040 
--G90OEG50- 

G000E060 

--GeooeoTo- 

G000E080 
-<500O£09O 

GOO0E1O0 

--Goooeiif)- 

GOOOE120 

--eeooe-tso- 

G0Q0E140 

-Gooteooo+ 

GO01E005 

--6e«t£QG&- 
Gooxeoio 

--G etn-E-e 20- 

GC01E030 

-Gooi-eo-4-a 

G001E050 

--sotrreoetr 

G001E070 
--G601-E08G- 

GO0IE090 
-GOOrEfCt)' 

G001EU0 

■-Qotnttizxr 

G001E130 

'tsooi-EtAtr 

G001E150 



-GTJOTEl'iSO- 

G001E170 
-G0t?TEI8tr 

G002E000+ 
-GtKJ2E01tT 

G002E020 
-GGO2E03G 

GG02E040 

■-s-ooaeoso- 

GG02E060 
-6GO-2E0TG- 

G002E080 
-G002&085 

G002EG86 
-6GG2-EG^0- 

G002E100 
-GGG2E-11G- 

GG02E12G 
-G-GG2ET25- 

G002E130 
-6GG2E14-0- 

G002E150 
-GGG^EI60- 

G002E170 
-6GG2E-r80 

G002E190 




FOR"WN "•""' 

SET (TEMPORARY) (NO ARRAYS YET) 

VERIFY 'SPACE "AND" ADVANCE" 

ERROR IF NOT LETTER — 

ADVANCE TO NONSPACE 



ERROR IF NOT «=« 
ADVANCE" TO -NONSPACE" 
EVALUATE EXPRESSION 



ERROR IF NOT AT TERMINAL 



SET VALUE 
P0P--Q3 

DQ-TTEMPORARYT 



E RROR ~ I F StVEK "D I R FCTL Y" "AND" TASK " OPEN " 
VERIFY SPACE AND ADVANCE TO NONSPACE 
ACCUMULATE "WORD 



MSCFORMED - rF-NOT~»FA"RT'«~ 
VERIFY SAPCE AND ADVANCE 

EVALUATE" TARr-NURBER- 

VALIDATE PART NUMBER 
VERIFY "TERMINAL" 



SET'TONTEXT ' 

POP Q3 

FIND" "PARI 

ERROR IF CAN'T 



SET P16 FOR FIRST STEP 

DESCEND 

SET Q9 TO FIRST STEP 
JUMP "TO" FETCH 

TO 

ERROR" TPTJrRECT 

VERIFY SPACE AND ADVANCE 
PICK" UP'" WORD 



JUMP " I F~ NOT - *"STEP » 

VERIFY SPACE AND ADVANCE 

EVALUATE" "EXPRESSION 

VALIDATE 

VERTFY-TERMTNAU ~ 



SET-CONTEXT 

POP Q3 

FIND" "STEP" 

ERROR IF CAN»T ELSE SET P16 
SET „.. Q9 

JUMP TO FETCH 



025-W— 7" 
023 T 

010 = 39 

■oro-*-2i- 

010 * 44 



"E RROR - 1 F" NOT - * PA RT» 

VERIFY SPACE AND ADVANCE 

"EVALUATE-EXPRESSTON 

VALIDATE 



— -6002E1 95- 
6C02E196 

-— SG0-2E20O-- 
G002E210 

G002E-220- 

G002E230 



©20: 
025 
020 
020 

020 
001 



p— t- 
K 19 
Q -— 3- 

S 
■$ 
E 17 
K--2- 



1 24-^-19" 



001 
050 
010 
010 
052 
052 
050 



E 
-P- 



-VERTFY- TERMINAL 



-G0O2E235- 024 

GQ02E240 * 3 020 
-G0O2E245- #--4-020 050 -Q 

G002E250 010 

-GOO3E0004- G 3-0X0 

G003E010 020 



6 
■20" 
13 

50 

3 

- 4- 

16 
a 



-SET" "CONTEXT 

POP Q3 

FINDPART 

ERROR IF CAN'T 



-G0O-3E02O- 0-1-0 

G004EOOO+ 6 4 010 

- -G 0O4E0-1O- - -0-20 

G004E020 020 

-G004E030 020 



S 
-X-- 

$ 

■5-- 



6 





-7- 


-0- 



010 = 38 



G004E040 

G004-E05©-- 

G004E060 

60©4£Q7O--- 

G004E080 

— G004E090—- 
G004E100 

— - GQ04EH-G— 

G004E120 
G804.&130--- 

G004E140 
G004E-15O— 

G004E160 
G0O4E-17O— ■ 

G004E180 
----G6O4E19-0— 

G005E000+ 
GQOSEOi-O— 

G005E020 
— 60O3E-03O— 

G005E040 
G0O5-EGS0— 

G005E060 
, G0O5EO-70— 

G005E080 
— G0©6E0©G+- 

G006EQ10 
— -6O-06-E02-O-- 

G006E030 

— Geoeeo^o— 

G006E050 

— - GO06EO60— 

GQ06E070 
G 006 £08-0— 

G006E090 
* GQ06E-K>9- 






it- 



-*-- 



--Cr 



G006E110 
G0O6E12O-- 

6006E130 
-— G0O6E-140-- 

GOO6E150 
G006E-1-60- 

G006E170 



020 
—050- 

020 
— -0-20- 
1 052 
2-020- 

050 
---0-20- 
3 020 
4--004- 

020 
—020- 

020 
5--0-2Q- 

020 

— -010- 

5 010 
-020" 

124 
©01- 

020 
-0-20- 

124 

001- 

1 050 
- -6- -010- 

020 
- — -©■20- 

020 
025- 

023 
-004- 

020 
023- 

020 
023- 

020 
-0-23- 

020 
©-23- 

020 

—025- 
010 



Q 12 
0-1-3- 
K 4 
0-1:3- 
K 4 
0—8- 



T 
S---0- 

Q---8- 

S 
-s — 0- 
Q 8 
5—0- 

s 

X— -1- 



0-10 

050 

053- 
050 

0-1-0 ■ 

050 
001 
052 
■001- 

004 

0-10- 

010 

0-1-0- 

010 

■0-10- 

002 

0-1-0- 

010 



a -37 

Q 8 
-Q— 9- 
Q 12 

•S— 1- 

P 17 

■ *—$- 

» 3 
•*— 4- 
T 
.»-- 29- 

* 1 
$—\~ 

* 28 

•=--1-9- 

* 1 

B--55.- 

- 53 



ELSE SET P16 FOR FIRST STEP 
-SET--Q9 

JUMP TO FETCH 
-DONE - ™ - — ■ ~ 

SIMPLE-INDIRECT TEST 

JUMP TO- ASCEND 

CANCEL 

S I MP LE - DIRECT- -TESTS- 



RESET STOP FLAG 



-S WITCH - TO- -05 ER— 
KICK OUT PROGRAM 



$ ERASE TEMPORARY 

-5 — 0-O1O---39 VERtFY-SPACE-AND-ADVANCS 

K 34 025 K 34 

€-- -6-0-10-$-— 1- 

P 1 052 * 1 

«-— 0- 0-10 - *- — 2 ADVANCE" "TO - NONSP ACe 

K 19 025 K 19 
-E— 6-020-K — 4 ■ 

010 X s» 



-S— 0- 
$ 
P--2- 

s 

T 
H--19- 
W 7 
-T--0- 
W 9 
T--0- 
W 3 
-T--0- 
W 13 
T— 0- 
P 1 

A -66~ 

* 50 



010 

050- 
010 
050- 
002 

0-10 

065 

002 

065 

002" 

065 

002 

065 

0-02- ■ 

124 

002- 



-TYPE- 

VERIFY SPACE AND ADVANCE TO NONSPACE 

ACCUMULATE WORD 

JUMP IF «ALL* 



=» 39 
#- -90 - 

= 27 
-T— 0- 

* 1 
S---1- 

T 
■*—- 5- 
T 

•#-10- 

T 
*-- 15- 
T 

•*--20- 

A 66 
■*- 30- 



-JUMP--IF--*PART*- 
—JMP~lF~**TEPr 

-JUMp-lF--*F0Rm- 
-JUMP-I-F-<-SI-ZE-«- 



■JUMP- IF-QUOTES— - - 

JUMP TO EVALUATION SECTION 



--eeoseiao- -»- 

G0G6E190 
--G8O6E20O--- 

G0G6E210 
-GO06E220 

G006E230 
--GG06E240- 

G006E250 
--G0O6E260- 

G006E270 
-GC06E280 - *- 

G006E290 
--G00&E30G 

G006E31O 
--GS06E32O 

GOO6E330 
-G6Q6E-340- 

6006E350 
--GQQ&E360--- 

G006E370 



--G6^6-E38<r- 

G006E390 
— 6C'06E4eO- 

G006E410 
--G6&6-E415-- 

G006E42Q 
--G00&E43O-- 

G0Q6E440 

— Geoee450- 

G006E460 

--Gee6-e47G" 

G006E480 

T -60t)^e49-0- 
G006E50Q 

— G-D06E5TCr 
G006E520 

"G0tn6-E53tr- 
G006E540 

6006E560 
— G'e06E570- 

G006E580 
-6O0-&E59O-- 

G006E600 
-6-QO-frE6*0- 

G006E620 
-©0066630- 

G006E640 
-6006-E65O-- 

G006E660 
--G0O6E6-7G- 

GG06E680 
-G0O6E-7OO- 

G006E702 
-600&-E704-- 

G006E706 
--GeefrE768-- 

G006E710 
-G006E-71-2- 

G006E714 



* 6 



-O20 
020 

-004 
020 
023 
020 
023 
020 
023 
010 
020 
020 
020 
020 
020 
020 

-020- 
002 

--0-20- 

020 

020 

050 

020" 

020 
-O2-0- 

020 
0-1-Q- 

* 10 020 

020- 

020 
--020- 

020 
02-0- 

020 

. QQZ 

* 11 020 
-020- 

020 
-020- 

010 

*-£ 5-0-20- 

020 
020" 

020 
020- 

020 
—020- 

002 

— -^-25-0-24- 

020 
025- 

* 29 010 

*-20-020" 

020 

2_ 20 . 

020 



$~'- 
S 
H 19 
W 8 
T 
W 10 
T---0- 
W 4 



T-- 

E 

s 

s 

$-- 

s 

Q- 

s 



-o- 

6 





-3 




-s— o- 

* 8 

■H--2-3- 

P 19 

P 19 

-s — o- 

S 

P--1-5- 

5 

■*-- -6- 

S 

-s — o- 

S 

3 
"S— o- 

S 

-*-- 1T 

H 26 

-r _ "0- 
s o 
"S— o- 
X 5 
-s — 0" 
s o 

•-3— 0- 

$ 

"0—3- 

S 
-S—O" 

* u 

K---2" 
P 1 
K--1-9- 



-$- 



oto 
oio 
oio 

065 
002 
065 
002 
065 
002 

010 
010 

o-i-o - 

010 
050 

010 
010 

oio 

050-- 
052 

oor - 

56 

•oio- 

010 
0-02" 

010 



= 27 
■$--- r - 

T 
#-35 

T 
■#-35- 

T 
ft- 40 " 

s-3'9- 
= 21 
=-44" 

* 25 
P--20- 
« 13 
--50- 
E 17 
P--X9- 

* 7 
X— 5 

P 3 

. a — 7 ~ 

u 67 
X-13- 

* 25 



-VERITY - SPACE" AND " ADVARCF TO" NUNSP A~CE 
ACCUMULATE WORD 



JUMP IF"* PARTS' 
-JUMP -IF-* STEPS ^ 



-JUMP- IF"* FORMS' 

ELSE MALFORMED 

VER I FY SPACE "AND -ADVANCE 

EVALUATE PART NUMBER 
-VALIDATE" -PART- "NUMBER 

VERIFY TERMINAL 



POP Q3 

FIND-PART 

ERROR IF CAN'T 



"TO" -ADVANCE "WHEN" - DONE 



-UNPACK"" TO-R 

R TO S 
-JUMP-IF-1NTERRUPT- 

TYPE 



010 

•oio- 

010 

oio- - 

050 

OTO- 
010 

■OIO" 

056 
OT0- 
010 
OTO- 

•oio- 

010 

o-io- 

010 

050" 

010 

010- 

010 

05-2" 

124 

001" 



= 39 
--21- 
9 45 
*"25" 
P 21 
---13- 

* 51 
■E-I6T 
P 3 
ss 7 " 
= 67 

vr-25- 

■■»— 39" 

» 21 

w-~46" 

* 25 
P-22 

= 13 
'*-52~ 
E 19 
#--29" 
K 19 
E---6" 



VERIFY SPACE AND ADVANCE 
-EVA'tUATE-STEp-NUMBER 

VALIDATE STEP NUMBER 
-VERTFY-TERMUWt 



-P0P-Q3 

FIND STEP 
"ERROR"! F-CANrr 



"UNPACK-TO -R 

R TO S 
-TYPE 

TO ADVANCE 

"VER IFY-SPACE-AND-AD VANCE 

EVALUATE FORM NUMBER 

VAL-1DATE— FORM-NUMBER 

VERIFY TERMINAL 

POP 03 
"FIND-FORM ■ 

ERROR IF CAN'T 
-t OCflrt - SUBROU TtWE " TO "VERTFY - TERM I NAL 



*"21 



001 

-020" 

050 



o-oio- 

$ 010 
0-050- 

* 22 056 
020 

* 23 056 
H-20-024" 
H 20 014 



* 25 
H-2G- 

* 21 

* 21 
-I- 1- 

* 21 



•EC1MINATE-SPACES- 
VERIFY TERMINAL 

-COMPUTE" SIZE 



-GG06E716- 

G006E718 
--G006E720 

6006E722 
•~G0G6£724 

G006E726 
--G006E728 

G006E730 
--G006E-75G 

G006E752 
—G006E-7S4 

G006E756 
-G0£6E-75£- 

G006E760 
--G0G6-E762- -*-32 

G006E764 
-GG06 £-766 

G006E768 
-SQO6S-77-0- 

GG06E772 
--G 6066774- 

G006E776 
-&G06E-7-78 

G006E780 
-GS£6£-78-2 

GO06E8O0 
--GQO6E-802— - 

GG06EQQ4 
-G0Q6E-8G6 

G006E808 
-GGG6E-S-1G- 

G006E812 
--GG0&E314- 

G006E816 

-Gooeee-i-a 

G006E820 
-G0O6E82-2- 

G006E824 
-GQ-06E-826- 

G006E828 
-GG06&823- 



Q---0 

050 P 12 
010 -a-36" 
4 
050 P 11 
010 - 66 
0-1-0 -« 



G006E830 
-S0-06E83-2- 

G006E850 
-G006E-852- 

G006E854 
-&GQ6E856- 

G006E858 
--G00&E-860- 

G006E862 
--G8CHSE-864 

G006E866 
-G006E868 

G006E870 
--Ge06rE87-2-- 

G006E874 
-Ge06E-876 

G006E878 
-G0G6E880 

G006E882 




SET--OUTPUT-FOR QUOTED "MESSAGE- 
ADVANCE 

JUMP IF QUOTES 



SAVE-P2 

ADVANCE TO NON-SPACE 
REST0RE-P2 



JUMP--IF-^}D- 



FINISH LINE 



TRANSMIT 

ELIMINATE SPACES 
ERROR IF NOT END 



TYPE PARTS 



TYPE STEPS WITHIN PART 



-JUMP-IP- 1 NT ER RU P T" 



TYPE ALL FORMS 



-LINE-FEED- 



--G600E-884- -1-20 

G006E886 * 44 044 

--G0Q6E-888 020 

G006E890 

-G006E892 -- 020 

G006E894 020 

-G0Q6E896 020 

6006E898 020 

--G006E899 020 

G006E900 020 

-6006E90-2— ' — 020 

G006E904 020 

--GG06E-906- 020 

G006E908 010 

--GG06E-910 ^-45-0-20 

G0O6E912 020 



■A 

$ 



5)' 

s 



-6006691-4- 

G006E916 
- -QQQ 6E91Q-- 

6006G000 
- -G 8060010- " 

G006G020 
-GO06GO3O- 

G006G040 
-S0O6GQ5O- 

G006G060 
- -G 0066-070-- 

G006G080 

-eooeeo90- 

G0066100 

—GOOS-GltO" 

G006G120 

T -e 006-Gi 3xr- 

G006G140 

— G«>SGT5Cr 

G0066160 

■-Qt)ij$GlTQr- 
G006G1S0 

G006G200 
— G-O06G2T0- 

G006G220 
--6fK)*<32-50" 

G006G240 
-6006.6250- 

G006G260 
-G006G27O- 

6006G280 
-60O6G290- 

6006G300 
-G006G310- 

G006G320 
-GO06G33O- 

G006G340 
-G006G350-- 

G006G360 
-G606G3-7O-- 

G006G380 
—GO06G39O- 

G006G400 



# 51 



* 



—"010 

* 46 53 

-1:00 

* 50 020 

052 

020 
020 
020 

025 

020 

— -020 
020 

— o-ro 

53 020 
02-5 

* 54 020 
-020 

020 
-#-5-5-02Q- 

020 
-Tf-56-020 

052 
-*--37--02O 

* 56 020 
020 

020 
-Q-ZQ 

020 
020 

020 
052 

* 59 020 

-*~6€I-Q20 

020 
-026 

001 
020 



004 

060 

$---0-0-10 

1 
80 050 

010 
A- 42 0-50 
S 010 
P- -1-5 -002 
S 010 

010 

010 

s-- -0-010 

# 41 
A- -42 -050 

s 010 

X — 5" — 

>Q461»222 
»0000*000 

# 90 050 
-#-51-01-0 

050 

-$ — 0-Q2Q- 
P 1 124 
A- -5 9-001 
S 010 
P— 1-050 
$ 010 

-«-&2 — 

P 1 124 

-K-T9-O0T 

$ 010 

■XT— 2-0TJ2 

Q 4 001 

"5 — Q-QYO- 

Q 4 002 

'-^"90-0-50 

# 57 010 

■--■*«*- treo- 

P 15 002 
S 0-050" 



■t— r 

H 20 
= -36 
9 
P 11 
» 66 
-P-l-t 
a 66 
X- 13 
* 25 

-e-"7- 

= 67 

■S--2-5-- 



-JUMP-IF-I-NT-ERRUPT- 



-S---1- 

= 25 

♦ 2016 

»O0O0 

P 2 

-s— r 
p 1 
»-zr 

A 59 
*-9^- 

= 14 
Q— -5- 

a 1 



LINE FEED 
♦FORM' 
TYPE VALUES 



RESTORE P1»P2 
-EVACAUTE-EXP 

-JUiMp-r F" NOT " COM?-! A" 



-pdSH-XOMMff-INTa-OPERATOfi- -STACK- 
ADVANCE 

"LOOP " " 



-*■ 



001 
020 

020 
0-20 

020 
-6-1-020 

020 



S 010 

-■$— 0-&10 

$ 010 

-p— 2-050 

* 90 050 
-*-59~0t0 

050 

"■$-- -0-010 

s 010 

-P— 2-0-25 

* 60 010 
~P -1-2-02 5 

* 61 010 
-A- -42" 050 

S 010 

-$— G-o-ro 

S 050 

-S--0-OIO 

A 43 050 



K 19 
E— 6T- 
= 13 

•» — svr - 

* 56 
-kf-l-5- 

* 55 
-P~- 2" 

S 1 
-p-- r - 

X 13 

-P-12- 

B 21 

-B"1I- 

* 13 

-P--18- 
P 2 

P 1 

-=---4- 

= 1 

-p-i-a- 

S 1 
-* 91- 

S 1 
-P-11- 

» 66 

----25- 

P 12 

---62'" 
P 11 



-JDMP~rF-NOT-TERWlJWU- 
POP Q3 TILL CLEAN 



■P0PnQ5~TTCC~CCEffN" 



-REST0RE-Pr*P2- 

JUMP IF INTERRUPT 



EVALUATE EXPRESSION 

"UNPACK 

POP Q3 



RESTORE PltP2 
-COPY -CHARACTER- ~T 0" "OUTPUT " 



REPEAT UNTIL EXPRESSION IS COPIED 
JUMP IF ROOM FOR VALUE ON SAME LINE 



INSERT "SPACE- 



-Geo6G4io--- 

G006G420 
-G006G430-- 

60066440 
-G0066450 

G006G460 
-G 00664 70--- 

G006G480 



* 62 



-020- 

020 
-023- 
020 
020 
020 

-01-0- 

021 



-G 9066490- -0-29 

G 00665 00 » 6 3 020 

-GG06G5-10— ■ 020- 

60066520 120 

-G 0066530- 044- 

6006G540 060 

-60066550- -0-2-0- 



Sr--Q- 
S 
P---6- 
S 
A 48 
S 
«- 66- 
P 5 
A- -60- 
A 44 
-S--0- 

N---8- 
P 11 
S---0- 
A 27 
■5 — 0- 
S 



010 
010 
001 
010 
050 
010 



= 66 

s 62 

■*-■ 62 
* 62 
Pll 
~ 66 



-INSERT-*-a-i 

INSERT SPACE 

-JUMP iF- NOT -ZERO- 
INSERT SPACE 

INSERT ZERO 



001 

01-4 

050 

■010- 

004 

050 

010 

010 

050 

010- 

010 



G0066560 020 

-600665-70 020- 

G0066580 020 
--G0O66590- 3 

G006G600 023 P 4 002 

-60066610- 0-29 - 5- - -0-0-1-0 

G0066620 * 92 

-600666-30 020-P — 4-001- 

G006G640 020 A 60 014 

- -6 0066650 -*- -64- 0-2-0- A- -44-0-50 

G0066660 020 S 010 

- -6006.6670 0-2-0 -P-- -4-0 06- 

G006G680 * 65 021 P 4 072 
-60066690 O50-H-2O-01O- 

G006G700 020 S 010 
- -60066710- 3 

G006G720 
r -6 0066? 30— 

G006G740 
-600667-50 — 

G006G760 
--6 0066? ?0— 

6006G780 



* 63 
#-63 

P 11 

a 66" 

P 6 
H--20- 
S 1 
=-66 
P 11 

■a-66- 

« 36 



-INSERT-SIGN 



I NSERT - FIRST - 0-16 1 T — 
-INSE-RT-DECl MAfc-PQI NT" 



g- 

* 66 

a- -64 - 

* 92 
■#—64- 

* 64 
■P--H-- 

- 66 
■*-65- 

31 
■S— 1- 

- 36 



JUMP IF SFX * 



INSERT SIGN OF SFX 



INSERT SFX DIGITS 



« 



020 

0-2-0- 

66 020 

020- 

020 

0-2-0- 

025 

-60066790- 020- 

G006G800 020 

-GO 0668-1-0 1-0- 

6006G820 * 90 

-60066830 -*--9i — 

G006G840 # 92 020 
-G0066850- 1-00 



5—0- 

A 42 

•S — 0- 
S 

p— l- 

K 19 
■5— Q- 
P 2 
•*-58- 



050 

0-10- 

050 

010- 

010 

1-24 

002 

0-1-0- 

050 



P 11 
■e— 66"- 

p 11 

*--6fr- 

» 25 

K— 1-9- 
X 5 

ss 2-" 

* 90 



-INSERT- R-I6HT- PAREN-- 



-I-NSERT-CR+EOM 

TRANSMIT 

JUMP IF AT TERMINAL 
-ADVANCE- -TO -NQNSPACE- - 



G007E000+ 
-6007E-O10— 

6007E020 
-6O07EG30— - 

G007E040 

-Ge08£-Qe0+--- 

6008E010 
-60G8EG20 

6008E030 
-GQi-tE-ee-O*— 

6011E010 
--G0-1-1-E-015 

6011E020 
~G:0H-EO3O 

GG11E040 



-6- 



7 010 
—020 
020 
— 0-20 
010 
-8-0-10 
020 

— 020 

010 

-6-11-0-1-0 

020 

0-20 

020 

020 

020 



-■5- -50 
»0011 
»0000 

S 

-$■ — 

A 42 

-S---0 
X 5 

-$— e 

S 

-s — o- 

X 5 

-S---0 

S 

-Q---9 

S 

-S--0 
3 



♦ 407. 

»000» 

-o-i-o- 

050 

-0-1-0 



S--50- 

6111 

OOOOf- 

S 1 

=-2-5-- 



••10*C« 



RETURN 
"SI MPfcE- 1 ND IRECT-TEST S" 

SET UP CR+EOM 
-TRANSMIT- 



010 

-01-G- 



010 
002- 
010 
-010- 
050 



38 
-22" 



-P AGS' 

SIMPLE- INDIRECT TESTS 



* 39 
E--9- 
a 20 

•*-46"~ 
P 22 



-for,m — 

verify space and advance 

-error-if— indirect 

convert form number 

- V At I DAT E 

SET CONTEXT 



— Gel-tees©- 

6011E060 
— G0-H-E070 

Goneoao 

— GO11EO90-- * 1- 

6011E100 
— 6G-ME11&-- *--2- 

G011E12O 
— GOl-tEl-30 

GQ11E140 
— G012E000+- ■- G 12 

G012E010 
---GO-1-2E020 

G0X2E030 
---G61-2E-Q40- 

G012E050 
— 6-0126060- 

G012E070 
— G6i-2-E680 

G012E090 

— Gei-2£i-eo- 

G012E110 
— GO1-2E1-20 ' 

G012E130 
— Gei-2£T4G 

GQ12E150 * 90 
— G0i-2Et6O- 

G012E170 
— GO-1-2&1-8 

GQ13E0QG+ G 13 

— Getseeio- 

G013E020 

-"-Goi-jeoaxr 

G013E04G 

— GtrrsEO 50 

G013E060 
— G01-3E-0T0— — 

G013E080 
— StM-^EQ^O— 

G013E100 
— G013E1T0— 

G013E120 
— 6^-l-3-E130— 

GQ13E140 
— S-O-i-3Ei5-0— 

G013E16Q 
— GO-X-3E-1-70— 

G0X3E180 
— GO-1-ArEQOO-K- 

G014E01Q 
— GO-1-4EO-20-- 

G014E030 
— 601-4E040— 

GQUE050 
---GtM-*E66-0--- 

G014E160 
—601-4^170--- 

G014E180 
— G014£-i90— 

GQ14E200 



02 0~ 

020 

124 

002 

020 

001 

020- 

020 

020- 

010 

010 

020 

-1-20- 

020 

0-20" 



--0" 

80 

1 



-020- 
020 
•020 
020 

-020 



A 

■s~ 

A 
■$- 



— -*--■ 1- 






-2- 
3 



— -G-lfy-* 





2 
1 


-0 

1 




-o 



-o 

90 

-o- 

27 

--0 

42 
-0 

020 S 
■020-S— ©■ 

020 S 

-o-i-o -x— I 

07l»0631 
-0-1-2? 42-4-0 

007*0621 
-007T2000- 

010 S 
-02C-S— 

020 Q 12 
tr20-Q"T3 

020 K 4 
-O50-Q-I3' 

020 P 17 
-020-K— 4 

010 X 5 
-0-20-Q— 9 

050 P 21 
-020-S — 

002 * 2 
•O-ZO-H-23- 

020 H 26 
-G50-P--16 

020 S 

-020-a— o- 

010 X 1 

oio-s— e- 

020 G 9 
020-S---0' 
020 S 
023-W- 
023 T 
0-20- r 
020 S 
004-H" 
020 W 
023-T- 
020 W 



010 
010 
025 
010 
010 
010 
050 
010 
010 



010 
050 
050 

010 

010" 

050 

■oi-o- 

050 

oio- 

010 

oio- 

010 



a 3 
A- 80 
E 6 

a-~l- 

E 6 
P-l-3 

a 55 

=--53- 



"POP-03 

ELIMINATE SPACES 



* 38 
P 17- 
P 12 
■r-fftf- 

* 90 

P 11 
--66- 
P 11 
s»- -6"6" " 

* 25 
- a --55~ 

* 53 



MALFORMED IF NOT COLON 

STEP ONE CHARACTER 

MALFORMED IF NOT TERMINAL MINUS 
-S ET- -SUBS-T ATE- FOR - FORM 

SWITCH TO USER 
-KICK -OUT-PROGRAM 

JUMP TO G SERVICE 

STOP - — *-"" 

SIMPLE-INDIRECT TESTS 
-SET-'STOPPED«-FLAG 



-PREPARE' MESS AGE 

C0PY~'5TEP"NUM8ER-"FRCM R~TO" 5~"" 

-ADD" -PERIOD 



»142» 
s3-4T» 
• 461 1 

vOQQy 

-oio- 

050 

-0-50- 

050 

-oio- 

001 
-0-50- 



3447 
1070— 
2447 
OOOOv 



"ADD - TRtEOW 

SEND 'STOP* MESSAGE 

-swrTorTcrusER 

KICK OUT PROGRAM 
'STOPPED BY STEP* 



ooi- 

010 
010 
010 
001 

001 

■0*0- 

010 

-oi-o- 



■8—37- 

8 
Q— 9" 

Q 12 

-5 — 1- 

-» 1 
P"t7~ 

*-- 3 - 

S 1 
■sr-21— 

$ 1 

x— 7" 
X 7 
X---6- 

* 55 
■3-53- 



GC 
-S I MPLE-DTRECT- TESTS- 



JUMP IF NOT 'STOP* 
-R ESET " ' STOP ' - FLAG 

JUMP TO ADVANCE 
-JUMP" IF" "NO "OP EN "TASK " 





— o- 



— 0- 



19 

8 

— 0- 

10 



002 

0-1-0 

010 
050 
001 
OTO 

010 
010 

065 
■■002" 

065 



£ 9 
n-39- 

= 27 
T — 0- 
* 60 
ar-39- 

a 27 

$--T- 
T 

*-to- 

T 



-TIND-CURRENT-STEP 

JUMP IF FOUND 
"JUMP "TO" -ASCEND " I r "DONE" - " 

JUMP TO ASCEND IF DONE 
-JUMP-TO-FETCH 

SWITCH TO USER 
- K-I CK-OUT-PROGRAM 

BACK TO G SERVICE 
-DELETE 

ERROR IF INTERNAL 
- V ERTF Y-SPACE- AN D - AD VA NCE" 

ACCUMULATE WORD 



JUMP IF NOT »ALL» 
-VERIFY- SPACE" TWO - ADVANCE- " 
ACCUMULATE WORD 



— ; JUMP"' I F-« PARTS » 



-*-xo 



-G04-4E-21O- 

GQ14E220 
--G014E23Q- 

G014E240 
-G014E-250- 

G014E260 
--G014E27G 

G014E280 * 20 
—G 0-145290- 

G014E300 
-GQ14E310- 

G014E320 
-G0L4E33O 

G014E340 
__G01A£35G- Jt-32- 

G014E360 
__60l4E-37-l 

G014E380 
__G0-1-4E-39G- 

G014E400 
__G0-l4£41O- 

G014E420 
_Gai4E430- 



Jfr-31- 



-*-3-3- 



* 34 



* 35 



G014E440 
.-G0-1-4E-450-. 

G014E460 
-GGX4E-470— ■ 

G014E430 
_G044S49-0— 

G014E500 
.-G0-1-4E-5Q-5-- 

G014E510 
T -GG.l4£5-l-5-- 

G014E520 
-G014E-52-5— 

G0X4E530 
r _G044E-53-5— 

GC14E540 
,_G014E54S— 

G014E550 

-GG-14E-555- 



* 36 



.jfc._39. 
* 40 



G014E560 
-G0-1-4E-56-5-- 

G014E570 
--GG1-4E57-5-- 

G014E580 
-G0-1-4S5&&- 

G014E590 
--GO-14'£59 L 5-- 

G014E600 
-G0-14E-&G-5- 

G014E610 
— G01-4E61*5- 



GC14E620 

-601-4E-623-- 

G014E630 

-G 6-1486 35- 
G014E640 

-G0-14E645- 
G014E650 



■0-23- 
020 
23- 
010 
020 
020 
-0-1-0- 
020 
020- 
010 
-024 
020 
-G2-0- 
124 
-0-05- 
050 
020- 
124 
-0O5- 
004 
-G2-0- 
010 
-020- 
010 

.0-2-0- 

120 

-0-1-0- 

024 

-020- 

020 

-1-24- 

005 

-OG4- 

020 

-#-43-0-10- 
020 

^20- 

010 

.-0-24- 
020 

-1-24- 
002 

■-02G- 
004 
-O20- 
023 

-020- 
023 
-O20- 
023 

-o-i-o- 

020 
-020- 

020 
-O20- 
020 
020- 
002 
-020- 
020 



T- 

W 
T- 

E 

$■■ 

s 

X 

s 
s- 

X 



-002"-*- 
065 T 
002 --*- 



oio- 

010 



# 



-l-o- 


-20- 

50- 

30 



--JUMP-IF--'STEPS-»- 



-JUMP- -IF- -• FORMS'- 
ELSE MALFORMED 

-VERIFY -TERMINAL- 
DELETE ALL STEPS 





5 
2 



010 
010 



Q 10 
-#--90 

K 5 
■*--36 

* 90 
*~9-i~ 
K 6 
*— 35 

S---0- 

* 33 

.$_.o. 

* 31 
4—0- 





052 #- 

050 * 
056-*- 
025 K 
020 — 
050 * 
•032-*~ 
025 K 
0-1-0 -S- 
060 * 
0-1-0-*- 
004 * 
010-s- 
004 Q 
0-1-0-*- 
050 



50 

-40- 

-39- 
90 
32 
1 



VERIFY TERMINAL 
-DEL5TE-ALL-F0RMS- 



LOGAL-SUBR-TO-DEL-ALL-STEPSCHENCE-PARTS)- 



91 
34- 

1 
--1- 
91 
29 
90 
28- 
10 
-2-9- 
10 



* 41 



-42- 



# 49 
— -&-50- 



K 2 052 # 49 
q_j.1_O50-*-91- 

# 91 052 * 42 
K— 6-025--K-— Jr- 

* 43 010 £ 1 

O6O-*--01-- 

S 010 o 29 
*-41~004-Q-H- 
S 010 * 28 
0-0-50 -Q--Hr- 



LOCAL SUBR TO DELETE ALL FORMS 



# 59 
--4K-60 



* 65 



:» 66 



K---2- 
$ 
•K— 1-9- 

-S---0- 
H 19 
t, L --7- 
T 
W-— -9- 

T 
W---3- 
T 
E--6- 

$ 

s — o- 

S 
Q--3- 

S 

S---Q- 

S 1 
H-2-3- 
♦ 91 



0-5-2--*- 

010 * 

■025-K- 

010 E 

0-1-0-*- 

010 £ 

065-T- 

002 * 

065- 

002 

065- 



-T- 

* 

--T- 



002 * 



-59- 

3 
-19- 

6 
-39- 

1 
--0- 

65 

-0- 

70 

--0- 

75 



-LGCA b - SUBR - TO- -VE R-IFY - TE-RM t NAtr 
ELIMINATE SPACES 



MALFORMED IF NOT TERMINAL 
- VEftf-FY- SPACE- -AND- ADVANCE- - 



JUMP IF »PART» 



JUMP IF 'STEP' 



010 * 

oio- st- 
oic * 

05O-P- 
010 * 

o-i-o-*- 

010 E 
•050-*- 
052 * 



21 
44- 
50 
-20 
13 
-50- 
17 
91- 
67 



JUMP IF »FORM» 

ELSE- -MALFORMED 

EVALUATE PART NUMBER 
-VALIDATE" PART-NUMBER- 
VERIFY TERMINAL 



POP Q3 

-FIND-PART- 

ERROR IF CAN'T 



"G 0-1-^65 5 

GG14E660 

-G014E665 

6014E670 
-G014E675 — 

GG14E6S0 
--GG-14E-685 

G014E69O 
--GG1AE695---- 

GO14E7O0 
-G014E-705 

G014E710 
--G014£-7i-S 

GQ14E720 
--G9-1-4E725— - 

6014E730 
-GC1-4E-7-3-5 

G014E740 
— 60i-*e?45— - 

G014E750 
~6&i-*e?5-5r — 

G014E760 
-G0-1-4E-76-5 

G014E770 
--Ge-l-4^775-- — 

G0I4E780 
--GGl4£?81 

G014E782 
-G-01-4E-785 

6014E79O 
--+}«■*•— 'E-00O-+- — 

H— — »EG01 
T ~H=* ~E002 

H *£OG3 

-H=eooA — 

H- EGG 5 

"H^--~-£-GO-&— — 
H— E007 

H E009 

— h-— eoio — 

H ECU 

-H— -Ee-i-2- — - 

H EG 13 

-H EG-14- — 

H EG 15 

-H EG-16 

H EOl'7 

-H EO-1-8 

H E019 

--H— — £020- 

H E021 

-H EO-2-2— 

H -EG23 

-H E 0-24— 

H EG25 

--H— £-026- 

I EQ00 + 

—I EG01 

I E002 



1-24 

001 

* 67 004 

020 

oio- 

« 68 004 
020 

G20 
#-69020 

010 
-*- 70-020 

020 
-0-2G- 

020 
^-20- 

020 
00r 

* 71 020 

^-te- 

* 75 020 
-0-20- 

020 

-020~ 

020 



K---6- 

# 68 

S 

* 66 
H 22 
5---0- 
H 21 
H -23" 
X 5 



0- 



-G- 
3 



-0-20 

002 

-■*•- 7 6- -0-20 

010 

-#-90 

» 91 
-H— G 

H 1+ 
-H— 2-0-00 

H 3 026 

_ H— 4~roo- 

H 5 
"H--6 

H 7 
"H — 8 

H 9 
-H-1-0 

H 11 

--tt-12 

H 13 
-tt-14- 

H 15 100 
-H-Ict-1-00- 

H 17 
-H--1-8 

H 19 
--H-20 

H 21 
-H--22- 

H 23 

-H-24- 

H 25 
-H--26 

I 
-I— 1 ■ 

I 2 



S---G- 

S 
•«-7"l- 

S 
X— - 5- 
$ 
«-— 0- 

£ 

■Q 3- 

$ 
S---Q- 
* 76 

S---0- 

X 5 



025 k- i 
010 S 1 
060* 91 -"-- 
010 = 29 

075 21 
010 -»- 28- 
056 * 69 

056-—-—--- 

010" « 21 
010 * 4S 
01-0 -#--50 — 

050 P 21 

01-0--=— 1-3---- 

010 a 51 

Oio-E-16 



EXIT 

EVALUATE STEP NUMBER 
VALIDATE STEP NUMBER 
-V ERl FY - T ERM I NAt 



010 



56 



010 * 21 
01-0 -a- ^46-" 
010 » 50 
■050-P-22- 
010 o 13 
010-3-52- 
010 E 19 
010 -=--5-7- 



-P0P--Q3 

FIND STEP 
-ERROR-tF-CANT 

ERASE STEP A/C H21-H26. 
-EXIT 

EVALUATE FORM NUMBER 
-VALTDATE- "FORM- "NUMBER 

VERIFY TERMINAL 



POP Q3 
"FIND" "FORM" 

ERROR IF CAN»T 
"ERASE- -FORM ~A/C "H24~-H26 V 



1080000 39 
»4"OZl»30tr»14-Or 
t01O0»O70t0O0Q 

~0 000-000" 00 GO" 



"0 -0- 





0000 000 0000 
0000-000-0000- 



-LOCAL - - STORAGE ' ™ 

LOCAL STORAGE 
-LAST -16" BTT ~ CLOCK- -READING 

TEMPORARY INITIAL TIME 
-TEHTOR ART "DATE" 

TEMPORARY DATE 

-5TN~DUE~F0R"Q-M5G 

NEXT DECK NUMBER 
-NEXT -STATrSTTCAL- CARD- NUMBER" " 

STN IN CORE 
-START-ri-ME-OF- "CURRENT-SHOT 

SCR CONTENTS 
-NEXT-AVA-IfABlTE-BOFFER 

NEXT AVAILABLE DRUM 
-STN 

BUFFER 
-DRUM 

+b «0F' DELAYED A/C READING 
-+«-• 0F»~ DELAYED "A/ C-PUNCHIN6- 




-1- 



ACCUMULATED CHARACTERS RESULT OF »27 
-INTEGER- FOR- OUTPUT- 

SEARCH POINTER 
-SEARCH-POINTER"" - - 

SEARCH POINTER 

SEARCH" POINTED 

SEARCH POINTER 
-SEARCH" POINTER- 

SMALL INTEGERS 



— I— -EQQ3- 
I EQ04 

-I £005- 

1 E006 

—I— — E007— 

I E 008 

__r^~-EOOSL- 

J— E000+ 
__J^-~-£00-l--- 

J E002 

_J.-a.-E 003— 

j £004 

-_J~~--EQ05— - 

J £006 

-J^W-ECO*— 

j — Eooa 

__J«^»E009 — 
J goiO 

-_J^_-_EOM— 
J E012 

j £014 

_j«__eai5— 

J E016 

K £000+ 

-JCmwEOQJL- 

K E002 

_iC=_=E0Q.3— . 

K E004 

r JC«=_LOOA— 

K E006 

r Jt=-=_£OOJ— 

K- E008 

_&=__£.oa9— . 

K E010 

.JC-rr.-EGl-I— 

K E012 

._K,«._-_£0-l-3— 

K E014 

_K — „s<HS— 



~I- 

I 
- I- 

I 
I 

I 
.-I- 

J 

J 

J 
.J. 

J 

-J. 

J 

J- 

J 
_j_ 

J 
-J 



--3- 

4 
-5- 

6 

7 

8 

— 9- 


— 1- 
2 

3- 

4 
__5- 

6 
.._?_ 

8 
_9. 

10 
11- 



-----3- 

\ 4 

-\-5- 

6 

... 7 

8 
9.. 

60 
1800- 

55 

60 
120- 
120 
-4-50- 
300 
300- 



MINUTES PER HOUR 

-COUNTS - PER -MI NUT E 

LINE NUMBER FOR EJECT 



SHOT TIME FOR PROCESSING 
--SHOT—TIME- -FOR- READING 

SHOT TIME FOR PUNCHING 
- -OVERDUE- -T-I -ME- FOR - PROCESSING 

OVERDUE TIME FOR READING 
-OVEROUE-T-IME-FOR-PUNCHING 



J 
-J- 

J 
_J. 

J 
-J- 

K 
--K- 

K 
-K- 

K 
-K- 

K 
-JC. 

K 
-46- 



-13 
14 

-15 
16 

-17 


2 

__3. 

4 
-5. 

6 
__7- 

8 



-N---G- 
R 

-A---0 
N 8 



-N---0- 
R 
A---0- 
N 8 



K E016 

-K-~~ gO-1-7— 

K- E018 

-K_~-E 0-1-9— 

K E020 

-K EO-2-1— 

K E022 

-K~~ E-923-- 

K E024 

--K- E02-5-- 

K £026 

tK E02-7— 

K E028 

-K £02-9— 

K E030 

--K EG 3-1— 

K E032 

-K— — E033— 

K~— E034 



K 
--K-- 

K 
--K- 

K 
-K- 

K 
--K-- 

K 
-K- 

K 
-K- 

K 
-K-- 

K 
--K- 

K 
~K™ 

K 
--K-- 

K 

K- 

K 
-K- 

K 



10 
-1-1- 
12 
•13- 
14 
-1-5- 
16 
17- 
13 
19- 
20 
-2-1- 
22 
23 
24 
25 
26 
27- 
28 
29- 
30 
31- 
32 
■3-3- 
34 



4 

000,0000,000,0000 
-000 ■* 00 00 » 000 ,0001- - 
000,0001,000,0000 

-O00.»0001.»000-*OOOI- 
100,0000,000*0000 
OOO „ OOOO ., OOO r 77-7-7 - 
000,7777,000,0000 
-000 -,7-7-77 -, OOO *■ 77-77 - 
000,0000,177,0000 

-O0O»000O»-020,O000- 

000,0000,033,0000 

-0-77 -» 6000 -» OOO * OOO - 

000,1000,000,0000 

-000*07-77-, -7-7-7- * 77-77 - 

000,2000,000,0000 

-1-7-7-,-7-7-7-7,-77-7-f -7-7-77- 
000,0017,000,0000 
-GOQ-,0000-,000 * 0-1-77 - 
000*0017,000,0177 

•-OGG-,-0000-,000,0400- 
000,0000,000,0017 

-040 ,0000, OOO, 0000- 
020,0000,000,0000 
-OlrG^OOGO-,000,9000- 
004,0000,000,0000 

-•OO2'»O0O0',00Oj0O0O- 
001,0000,000,0000 

-000 ,0000 » 40O>0000-~- 
000,0000,200,0000 

• -ooo-,oooo-,-i-oo * 0000 - 

000,0000, 040, 0000 
- OOO? 0000, 0-20,0000 - 
000,0000,010,0000 
000 ,0000 ,004,0000- 
000,0000,002,0000 



CHOKE NUMBER 
-UNCHOKE- NUMBER- 

ZERO (GENERAL CONSTANTS) 
-ADDRESS-MOD I F-I-ER 

ADDRESS MODIFIER 
-ADDR ESS-MOW F-IER- - - - 

SIGN BIT 
-EXTRACTOR-RIGHT— ADORESS 

EXTRACTOR LEFT ADDRESS 
-EX-T-RAGTOR--8QW-ADDRE-S5ES- 

MASK INPUT MESSAGES 
-COUN-T-ER-FOR-E-X-TENDED-ebOCK: 

MASK. FOR DRUM SECTION CODE 
-EXT-R-ACTOR-SFX- 

EXTRACTOR SIGN(CF) 
-EXTRACT0R--MA6-K-F) 

UNIT FOR SFX (AND TEST IN *27> 
-A LL— ONES 

BUFFER MASK 
-CHARACTER- -CODE- -MASK- -AND- STN~ MASK v 

BUFFER + STN MASK 
-B1-T--0F-D-I-STI NOTION- 

EXTRACTOR NUMERIC CODE 
-EN-SIT' 

OS BIT 
-R0-BTT 

TL BIT OR GREATER 
-CL-8IT-0R--EQUAL- 

SU BIT OR LESS 
"* — "OR- FUNCT I ON-OR-SUBSCR I PT — 

BIT-OR-+* 

BIT OR ARITH OPERATOR 

■frf-T- OR- -LEFT- GROUPER 

BIT OR RIGHT GROUPER 

■BIT-OR--REL-AT-ION — — 

BI) OR LETTER 



MPY. 
-ON- 

OF 
-TC- 

RI 
-RC- 

EJ 



-Jt»— EQ35- — 

K E036 

-J5 £037 

K E038 

K E0 39 " 

K £040 

K E041- 

L £000+ 

-fc EO0i— — 

L E002 



L- 

-fc- 

L- 



E003- 
EO04 



■€695- — 

•E006 

•eoe^— 

L E008 

-tr~~~EO09 

L— -E010 

--t— — ee-ii— ■ 

L E012 

--fc«-**- E01-3 

L -EQ14 

-t=«*eoTS — 

L E016 

--t~~-£oi j r--- 

L E01S 

L EG 20 

-N~~-EQ0O+ — 

N E001 

--M«.-»*g-9Q2 

N E003 

N E005 

-M==FOO? 

N E007 

N EO09 

N SOU 

P-r — E0.01 
-P~- *-E802— - 

p eo03 

-p — E004— - 
p — E005 

-P*— £006 — 
P £007 

-p £008—- 

P E009 

-p, gg^Q---- 

p- — eon 
-p— - E01-2 — 

p £013 

--p- — Eei-4---- 

p— £015 
-- P« — EOliS---- 
p E oi7 

-p Eoi-8 

p £o 19 



-ic -3 5- 000 1 troo-o > oor 

K 36 003»0000»000 
K -37- 000,0000*700 
K 38 

-K 39 

K 40 000»0000»177 
K- -41- OOO ■» 0000* I-7-7 
L 

■ -L- - - 1- -l-OO - 0000- 000 
L 2 100 0000 000 

_ t — 3-1-00-0000-000" 
L 4 100 0000 000 

■ l- - - 5- -tee - 0000 - 000 

L 6 100 0000 000 

"L— 7- -1-00 - 000 - OOO 

L 8 100 0000 000 
_ fc — 9 _j. 00 „ 000O _ 0O0 . 

L 10 100 0000 000 

• t "I I" 1-00- OOOO - 000 

L 12 100 0000 000 
• -L— 1 3- i-0 - O0 00 ~ 000 

L 14 100 0000 000 

"C-rs-too-oooo-000" 

L 16 100 0000 000 
' C -X 7" "TOO " 000-0 - OW 

L 18 100 0000 000 
- L- "1 9- 1-00 - 00 00 - 000 

L 20 100 0000 000 

-n — 0+ r 



rOOOO TO" FrT - OR" -DIGIT" 

-0000 CL+SU 

.0000 PRECEDENCE 'BITS 



N 1 + 
"N— -2-+' 

N 3+ 
-fT-'4V 

N 5+ 
~N~"6"+" 

N 7+ 
"N— 8V 

M 9+ 



10 

100- 

1000 

— I0O-GXJ- 

100000 

TO 000 00" 



10000000 

-100000000- 

1000000000 

■■N-t 0-+— 10000000000 - 
N 11+100000000000 

~p— — 

p 1 — 

P 3 
■-p—ir 

P 5 

-p — 6 _ 

p 7 
--p — 8 

P 9 

--P--10 «— 

P 13 

--P- -14-010-------* 

P 15 100 0000 000 
- -P- -1 6- 1-00 - 0000 - 00 " 

P 17 100 0000 000 
-P-l-8- 

P 19 



»0000 
»000G- 

-0000- 

0000 

-0000- 
0000 

-0000- 
0000 

-0000- 
0000 

-0000" 

0000 

-0000- 

0000 

-0000- 
0000 

-0000- 

0000 
-0000- 

0000 
"00-00- 

0000 

— 39 _ 

39 

-—39"" 
39 

-—39- 
39 

39- 

39 

—39- 

39 
3-9- 

39 



MAJOR CYCLE MSGS 
-MINOR "CYCLE -MS&S 

Q FOR ENABLE 
-t" ENABLED- "AND" "IDLE- 

Q FOR JOSS ID MESSAGE 
-Q-'FOR-JOSS-ID"MESSAGE-r-RI-ALREADY--NOTED" 

L ON AND WAITING FOR RI 
-Q- FOR "DRUM -ASSIGNMENTS 

L DRAINING BUFFERS BEFORE CL+SU 
-Q- FOR "INPUT "BUFFER" "AND" CL+SU" 



L GREEN (P13 HOLDS SUBSTATE) 
~Q~ FOR "BUFFER- AND" PREFERRED "PROCESSING" 
Q FOR PROCESSING 

-5-PROCESSTNG 

L CHOKED 



Q FOR CARD READER 
"5 " WATT I KG" TOR" TTE ADE"R-REA"DY " SIGNAL - 

S READING CARDS 
-Q- FOR "CA-RD -PUNCH " 

S PUNCHING CARDS 
-"POWER S~OFTENi """ ~ 



" CINE-NUMB £R -OiT'TYP EWR IT ER~" V AGE ~ 

PRESENT CHARACTER WORD IN R 
-ADDRESS-OF "PRESENT -CHARACTER" -WORD" "IN" R~ 

LOCN FOR PACKING OR UNPACKING 



;fx-- 



0000 

OO00 

0000 



( E-XTE NDED - TO" S I GN" -POSITION-) 

SIGN (EXTRACTED) 
"CF (MAGNITUDE-)-" - " ' — " 

SFX (EXTENDED TO SIGN POSITION) 
"SIGN (-eXTRACTEDI 

CF MAGNITUDE) 
-tOCN-OF-^PACE— AFER— «-lF-»- ? --ELS-£---l* 

PRESENT CHARACTER WORD IN S 
-A0DRESS""OF-PRES£NT"-CHARACTER-WORD~TNS- 

SUBSTATE OF L10 0=INST INFORM 2=INITIAL5 
-t-IWJt-FROW-*25~rOOTPDT-t-TNEl 

+ - RI WHILE IN Lll OR L14, 
-+-■ -LOCN--OF-CURREN-T--STER--IN-RT-ADDR 

+ * STOPPED (USED BY 613 «G0») 

W0RK-SPACE-F0R-G6-TYPE 

WORK SPACE FOR G6 TYPE 



--P -EG 20 

p E 02 1 

--P EG 2-2 

q EO0O+ 

-Q — eooi - 

Q E002 

.jQ««E003 

Q EQ04 

__Q««E005-- — 

Q-— E006 
_Q-«.»gO-0-?- 

Q EGOS 

--Q—E00-9 

Q £010 

.ja—«eo-i-i— -■ 

Q £012 

-Q-~— EO-l-3 

R~ — E000+ 
._$-»».£000- 

UOOOEOOO+ 
-UQO0E-QG4 

U000EQ02 

-uooo&ooa 

UG00E004 
-U0OO&00-5 

U000EOO6 
._U0O0£-OQ7- 

U000E008 
-UQQQEQ&9 

UO0OEO10 
.JUOOflEJOU 

U000E012 

.-uoaoE-o.i-3 

U0Q0EQ14 

-uGoac-o-i-5 



-P-20- 
P 21 

-P--22-' 


-Q 1 

2 

-Q---3- 
Q 4 

-0—5- 
Q 6 

..Q._7- 

8 
_.Q. — 9- 

10 
-G--11- 

Q 12 
-Q-l-3- 

R 
--S---0- 

U 
.jt__0- 

* 1 

_tt 2- 

» 3 
-jfe. 4_ 

* 5 

* 7 

_ft — 8^ 

* g 

* 11 

-■*--]: 2- 

* 13 

-*- 1-4- 



100 0000 000 0000 



100 

■100 

100 

-1-00 

100 

100- 

100 

-1-00- 

000 

-000- 

100 

100.. 

100 



U000E016 * 15 

r-uooi-eoGo*-— — u— a 

U001E001 * 100 

-uooigeea- ■#— i- ioq. 

U001E003 » 2 100 
-U00-1-EOO4 * 3-i00- 

U001E005 # 4 100 
-UQ04-E0Q4- 4J---5--1-00- 

U001E007 * 6 100 
•-U0O-1-E-GS-8- -*---7--t00- 

U001E009 * 8 100 
-U 00-1- E 0-1-0- # — 9-1-00- 

U001E011 * 10 100 
■ -U QO-lrEO -1-2- ■#- -H- -1-00 - 

U001E013 * 12 100 
- -U 00-1-E0 14- *■ -1- 3- -1-08 - 

U001E015 * 14 100 
-U0O-1-E016 *-l-5-l-O0- 

U002EOO0+ U 2 

-uoo-seee-i- *— o— toe- 

UQ02EG02 ft 1 100 
--UO02E-0G3- *- — 2-4-G0- 

U002E004 » 3 100 
-U002E-005 — # — 4-1-00- 

U002E006 * 5 100 



0000 

-0000- 
0000 
0000- 
0000 
0000- 
0000 

-0000- 
0000 

-0000- 
0000 

-0000- 
0000 

.5—0- 
S 

■L--0- 
L 

. L — o_ 

L 
L--0- 
L 
L--Q- 
L 
.|_ — O- 
L 
L--0- 
L 
L— 0- 
L 
-fc — 0- 
L 
•$--- 0- 
0000 
0000- 
0000 
-0000- 
0000 
0000- 
0000 
0000- 
0000 
■0000- 
0000 
0009- 
0000 
0O0Q- 
0000 

■oooo- 

$ 

oooo- 

0000 

0000- 

0000 

•0000- 
0000 



000 
000 
000 
000 
000 



0000 
0000 
0000 
0000 
0000 



000 OOOO- 

000 0000 



000- 
000 
000 
000 



0000 - 

0000 

0000- 

oooo 

000-0000- 
000»OO0G 
S--0- 

$ 
L— -O- 

L 
— b— 0- 

L 
----- L— 0- 

L - 
L-- 0- 

L 
L— 0- 

L 
L---0- 

L 
— — -L— o- 

L 
L — 0~- 

L 0» 
S— -0- 

000 oooo 
000-0000- 
000 0000 
000-0000- 

000 oooo 
000 - 00 00- 
000 oooo 
ooo-oooo- 
000 oooo 
000-0000- 
000 oooo 

000-0000- 
0000 
0000- 
0000 
OOOOr 
5 Q 
0000- 
0000 
0000- 

oooo 

oooo- 

oooo 



-PART-f-CONTEXT-) 

STEP (CONTEXT) 

-FORM "(CONTEXT) 

AVAILABLE SPACE POL LINK 

- USER »S ■■INITIALS " 

OPERAND PDL LINK 

-OPERAND 

OPERATOR PDL LINK 
--OPERATOR- 

AUXILIARY PDL LINK 
-AUX-I-L-I AR Y I TEM - 

CONTROL PDL LINK 
-CONTROL- (STEP- NUMBER) 

LIST OF STEPS {AND PARTS) 

-LIS-T--OF-FGRMS 

HIDEOUT FOR (08) 
-HIDEOUT FOR (09) 

R SLOCK LOWER LIMIT 

- -OR I (J-I-N - OUTPUT- -8 LOCK- -S0-S7 3 • 

STN TABLE — STATE 



STN- -TA8L-E- — — CURRENT -BUFFER- 



000 

ooo- 

000 

OSG- 
OOD - 

000 
000- 
000 
000- 

000 



STN TABLE 



DRUM ASSIGNMENT 



■i-oo- 

100 
108- 

100 
•100 

100 
-100- 

100 

i-oo- 

100 



•-ueo^eoe?- ■*■—& 

U002E008 # 7 
--U90-2E089 -K- -3 

U002E010 ♦ 9 
-U002E01-1- #-i-0- 

U002E012 * 11 

-U802EO13 * -12 

U002E014 * 13 
-U0O-2E0-15- *~14 

U002E016 * 15 
-U003&000+ U — 3 — — 

U003E001 # 
--UG03E-002 *---! 

U003E003 * 2 
--UO03E-0O4 * -3 

UOO3EO0 5 . * 4 
-U0G3E006 — « — 5 

UO03EO0T » 6 
--U003EQS8- ■*-- 7 

U003E009 » 8 
-U0O3EQ-1O- -»--- 9 

U003E011 * 10 
-UO 3 E 01-2 *~1-1 

U003E013 * 12 
--U9O3E-014- *-i-3— — 

U003E015 * 14 
--U903E-816 ■*-■ 

U004EOOO+ U 
-UO04E00i #- 

U004E002 * 
'-U0O4E0e3 -»-• 

U004E004 * 

"-tfee-4£-Qes- -*-■ 

U004E006 # 
-tl 004-E007 *~ 



otwo- 

0000 

oooo - 

0000 

•oooo- 

0000 
0000- 

oooo 

0000- 
0000 

■S--0- 

1 

2- 

3 
--.--4- 

5 
— -6- 

7 
8- 

9 

---to- 
il 

— 12" 

13 



008" 
000 

000 

000 

ooo- 

000 
000- 
000 

ooo 

000 



U004E008 * 

- "tl 0&4EG09- - — —- #" 

U004E010 * 

-oo-o-4-eei-r -*■ 

U004E012 * 
-tt004E01-3 *- 

U004E014 # 
-yO-04-E 0-1-5- *■ 

U004E016 * 
-U-O05E&OO+ -U 

U005E001 # 
-U005EO0-2 *- 

UQ05E003 # 
-U005-EO04- ■*■ 

U005E005 :# 
•-U005-EO06- ■*■ 

U005E0Q7 * 
-U005E008 #- 

U005E009 # 
-y0O5E0-10- -*■ 

U005E011 * 

-U80£g-912- *- 

U005E013 # 
-U0O5 EO-1 4 #- 

U003E015 * 



^4- 

15 
1- 5- -1-08 -0000- 

4 SO 
-0-1-00-0000- 

1 100 OOOO 
-2-1-^0-0000- 

3 100 OOOO 
-4—1-00-0000- 

5 100 OOOO 
-6-lOOT-O0O0~ 

7 100 OOOO 
-8- TOO -0000- 

9 100 0000 
10- -3:00-0000- 
11 100 OOOO 
1-2-1-00-0000- 
13 100 OOOO 
i 4- -18 0- 0000- 
15 100 OOOO 
-5- S---0- 

1 

-i 2- 

2 3 

-3 4- 

4 5 



000- 

000- 

000 

000 

000 

000 

000 

000" 

000 

000 

000 

000- 

000 

000" 

000 

000- 

000 



-5- 

6 
— 7- 

8 
-9- 
10 
-1-1 - 

12 

-1-3- 
14 



7 
— 8 . 

9 

- -to- 
il 

-1-2- 

13 

-14- 

15 



-0000- 
0000 
0000- 

oooo 

-0000 

OOOO 
-0000- 

0000 
-0000- 

0000» 

s — o— 

1 

_2__. 

3 
4- 

5 



7 

--8— 
9 

-ta- 
il 

1-2— 

13 

1-4- - 

15 
0000 »■ - 
$ 
0060— 
OOOO 
0000- 
0000 
0000- 
0000 
0000™ 
8000 
0000" 
0000 

oaoo- 

0000 

0000™ 

0800 

0000- 
OOOOt 

s— -o- 
1 

2— 

3 
4-- 

5 

6 _. 

7 



5-TN-TABtE-— -NEXT-STN-rN-SAME-STATE- 



STN TABLE — TIME OF LAST ACTIVITY 



SUFFER- -TABLE — - - NEXT - SUFFER" "TN - ttST - 



8- 

9 

--to- 
il 

— 12 
13 

—14- 
15 



-— UG05E016 — 

UO06E00O+ 
— U006E-00-1-A- 

U006E002 \ 
— U006E003--' 

U006E0C4 
— UOOT-EOOO*- 

U007E001 
— UD07-E-002— - 

U007E003 
—UC07E-004— 

V £000+ 

.__v-»«eoo-i— - 

V E002 

.__V-««E003— 

V- £004 

— tf«*-E005— 

V E006 

.__v-»«eoo7— ■ 

V , E 008 

.__v*««eoo^ — 

V E010 

— VU.««&0-14 



*-I5- 

U 6 
■#---0- 
1 

•2 
3 
7 


-1- 
2 

-3 


-1- 
2 



-ir- 

u 

Or 

M- 

V 
V- 

V 



-1-00 



100 



V E012 

.__V-««E015- 
V-~ -E014 

V~-~E016 



V~— EQ18 

V £020 

V E022 

— V*t??eE023- 



-V— 3- 

V 4 
-V-— 5- 

V 6 
.jy___ 7. 

V 8 
--V-— 9 

V 10 
-V-l-1- 

V 12 
-V--1-3- 

V 14 
-AA-1-5- 

V 16 
-V— 1-7- 



V £024 

.„V?«--e02-3- — 

V—-E026 
.__V—~EQ27— - 

V E028 

— V-~«~E02-9 

V E030 

— V— E-034-— 

V £032 

— V— -EG33--- - 

V E034 

— V- £0-35 

V- — E036 
— V — -EG 37— - 

V — -E038 
— V— E-039— - 

V«— ~£04O 
£041 



-V- 
V- 

-V- 
V- 



— E042 
—E04-3-- 

--£044 

-V ^£-045-- 

V -E046 

-V-t — £047- 

V E048 



V 18 
-■V--1-9- 

V 20 
-V— 2-1- 

V 22 
-V-2-3- 

V 24 
~¥-25- 

V 26 
-V— 27- 

V 28 
-V-2-9- 

V 30 
--V--31- 

V 32 
■-V--33- 

V 34 
-V-35- 

V 36 
-V--37- 

V 38 
-V--39- 

V 40 

-V'-tFl- 

V 42 
--V--43- 

V 44 
V--45- 

V 46 
-V-47" 

V 48 



-1-00- 

100 
-1-00- 

100 
400 

100 
400- 

100 
409- 

100 
-1-00- 

100 
-1-00- 

100 
400- 

100 

-100- 

100 

JU10- 

100 

-10-0- 

100 

400- 

100 

4-00- 

100 
-1-00- 

100 
-100- 

100 
-1-00- 

100 

-i-oe- 

100 
-100- 

100 
-1-00- 

100 
-1-00- 

100 
-100- 

100 
400- 

100 

400- 

100 

400- 
100 



0000 000 

S \ 

— x _i___ 

2 

3 • ■ 

OOGO 000 
.$___0 

0.000 

0*002 

0*020 
0*022 

V 

0000-000 

OOGO 000 
-0000-000 

OOOO 000 
-0000-000 

OOOO ooo 
-0000-000 

OOOO OOO 
-S0OO-Q-O0- 

0000 000 
-0000-000- 

0000 000 
-0000-0-00- 

0000 000 
-0000-000- 

oooo ooo 

-0000-000. 

0000 000 

■000-0-000 

0000 000 
0000-000- 
0000 000 
-0000-000- 
0000 000 
0000 -000. 
0000 OOO 
0000-0-00 
OOOO 000 
■0000-000- 
0000 000 
0000-000 
0000 000 
0000-000 
OOOO 000 

■oooo-ooo- 

0000 ooo 

0000-000 
OOOO 000 
0000-000 
0000 000 

■0G00 000 

OOQ0 000 
0000-000 
0000 000 
0000-000 
0000 000 
-0000-000- 
0000 000 



oooo*- 

S 

— 1 

2 

3 ■■ 

0000. 
_S---0.-- 

»0777 
» 0-7-7-7- — 
»0777 
*0777* 

V 
-OOOO — 

0000 
-0000— 

0000 
-00 00— 

OOOO 
-0000 — 

0000 
-0000— 

0000 
-0000 — 

OOOO 
-0000 — 

0000 
-0000 — 

OOGO 
-0000 — 

0000 
-00-00--- 

0000 

_ocoo— 

0000 

-0000 

0000 
-0000— 

0000 
-0000-- 

0000 
-OOOO — 

0000 
-OOOO — 

0000 

-oooo-- 

0000 

-oooo— 

0000 

-O000-- 

0000 
-OOO0-- 

0000 
-0000 — 

0000 
-0000 — 

OOOO 
-8000-- 

OOOO 
-0000 — 

OOOO 



DRUM TABLE 



NEXT DRUM IN LIST 



-DRUM -TABLE FIRST- -CONTROL" WORD- 



ORIGIN 
-LGA---- 
LCB 

-bee— — 



VARIABLES 



LCD 
-LeE- 

LCF 
■-feCG- 

LCH 
-b€I-- 

LCJ 
-fcGK- 

LCL 
■-fcCM" 

LCN 

-tee-- 

LCP 
-L-G-Q- 

LCR 
-LCS- 

LCT 
-L-CU-- 

LCV 
-L-CW- 

LCX 
-LCY-- 

LCZ 
-A — - 

B 

-e— 

D 
-E 

F 
-G 

H 
--I 

J 
-K- 

L 

-H 

N 

-o- 

P 

-Q 



T 

-u- 

V 



V E050 

•-V E051- 

V E052 



V 

v- 

V 

■w- 
w 

■w- 

w 

w- 

w 

w- 

w 

w- 

w 



W E001 

-W— ' — £002--- 

Wr — E003 
-W E0G4--- 

W- EGO 5 

-W E006 - 

W E007 

_W E-0G8 

W 'EG 09 

-W— &0-1G- W-- 

W~ — E011 W 
-W— E01-2 -W- 

W- E013 W 

-X9G-1-E-QG04 X-- 

X001E010 » 

-xeo-i-E82e 

X001EO30 

-X-Q01-E040 

X001E050 

-xao-i-E-oeo- 

X001E070 * 

-xee-i-eoso 

XG01E090 

-XO01E095 

X001E100 

-xee-i-ei-io- 

XO0IE12O 

-xeotet3t>- 

X001E140 

-X-OOTE1-50 

X001E160 

-x &ote t to— — t --*-- 

X001E180 
X001E190 

-xoo-i-e-eoo 

X001E210 
-X^0-tE2-20- 

X001E230 
-X-00-1-E24O- ■*- 

X001E250 
-XO0-1-E-26 



-49-1-ao 
50 100 

-51-100 
52 100 

- 000 

1 000 

--2-0GG 



000 
OOO 
5 000 
6GG0 
7 000 
8-000 
9 000 



3 
-4- 



-1-0-000 

11 000 

-1-2-002 

13 000 

-- 1-0-1-0 

1 020 

050 

142 
- — 020 



—01-0 

2 020 

-—0-20 
050 

120- 

020 



020 



020 
020" 

010 
■3-020 

050 

— - 120 

020 



020 



X001E270 
-XG0-1-E-28-G- 

X001E290 
-X0O-1E300- 

X001E310 
-X-00-1E-320 

X001E330 
-X0O-K355— — 

XG01E340 

-xeo-tE350— - 

X001E360 

-XG0-1E370- 

X001E380 



■■&■■ 



010 

-4- -0-20 
020 

050- 

001 

— -00-2 

024 

-5-0-26 

6 020 

020- 



~120 
020 

020 

020- 

010 



-ootro 

0000 

-0000 

0000 
»0000 

♦ 0000 
9 00 06 
»0000 
»0061 

♦ 0000 
rOOOO 
>0002 
9 0200 

♦ 0002 
» 02-3 2 
.0000 
r 60 1-1 
.0002 

-s— -0 

L 

-H--12 

K 21 

~s 

L 1 

-«.---!-■ 

H 10 
-L— 3 

H 12 

o- 

$ 
-<fr--9-©' 

s 
"L— 5" 

H 4 
-TTT2" 

* 2 
-t— 2" 

H 12 

s 
-ft-90" 

S 
-L— 4 

* 2 
-H--11- 

L 5 
-H-l-2- 

# 6 
-#---6- 

U 3 

S 

-$— -0- 

L 10 


$ 

-Hr-91- 

s 
-$ — 

# 4 



"0 OO-OOXTO" 
000 0000 

000 0000 
000 0000 

»001>1414 

»405»0313 

9006,1722 

»617»2215 

9 722 »1 5-23 - 

♦000 t 1106 

9000*1116 

»001»2224 

» 122 » 2423 

»324»0520 

»405*-2Q-2:3- 

»000»2417 

»425»0523- 

9311*3205 



17 

X 

Y 

Z 
'■ALL ""- 

DECK 

FOR 

FORM 
-FORMS 

IF 
-I'N~ 

PART 
-PARTS 

STEP 
-STEPS'- 

TO (LOWER CASE T) 

VALUES 

SIZE 



001 * 2 

010 s 1 
010-S-47- 

L 1 



QUEUE-SERVICE 

TO *2 IF NO LO QUEUE FOR ENABLE 
-SERVTCE-L-ff-BY- ENABLING 



-CHAN6E~5TATE-TO-Ur5~ 



001 * 4 
-Oqi-*~- 3" 

010 5 1 

•050" P— 0- 

010 = 65 

#--90- 

010 = 47 
f" S" 

002 *' 2 
-050"H— 4- 

O^0X" ft__ "4" 
010 $ 1 

■o-so-p— 0- 

010 * 65 
*-90~ 

010 a 47 
L— -4- 



TO #4 IF NO BUFFERS AVAILABLE 
-TO-»3-lP"MO-f3~Q0EUE-F0R-JOS3-r0- 



SEND JOSS ID MESSAGE 

CHANGE STATE TO L5.CQ FOR DRUM) 



"ARR A"NGE~FOR-Q-M S G~ 



-T0"*4 " IF -NO" L2-QUEUE "FOR" -JOSS ~rDV 



SEND JOSS ID MESSAGE 



CHANGE STATE TO L4- 



oot- 

001 

•025- 

025 

020- 

052 

050- 

010 

010" 

050- 
010 

010 

010- 



■s — j- 

* 7 
H — 4- 
K 1 

H---4- 

H---4- 
= 60 
a-47- 

L 10 

P---0- 

* 65 
■*-9f 

* 55 
■b-33" 



TO- *7 - IF -NO- DRUMS- -AVA1L-ABL E- 
TO #7 IF NO L5 FOR DRUM 



-DELE-TE-S-TN-FR0M-H4-TF-N0W-THERES- 



INITIALIZE DRUM FOR STN1H12 J . (P13 ) =2. 
-CHANGE-STATE-TO-CIOT- 



SEND INITIALS REQUEST MESSAGE 



-XGG-l£-390--\ *- — 7--0_0-H— 4 

X001E400 \ 020 H 10 
- -X 00-1-E-A 1 0- - - V - - -' 020 "H- - -4 

XGQ1E420 \ 024 U 3 
-XGG1E430 - -* 8 020 

X001E440 020 S 

--X0O-2-E45O- 020- S---0 

X001E460 020 S 
--X0O-1-E470- if- -92 

X001E48Q 120 

-X001E490 — __020--L — 5 

X001E500 * 9 020 H 20 
._X0OXE5ia -Q-5G-B--20 

X001E520 025 H 12 

.J40O-1E.53OL HZ5-K—1 

X001E540 * 10 020 T 
-XXiaiESSQ 0.5 2--S-1-1- 



X001E560 

._X00l£57O-- 
XQ01E580 

._X0O_l£59O- 
X001E600 

_x.aaiE6.m_ 



it 



11 020 

0-0-2- 

* 12 020 



020 S 



X001E615 120 

-XQ0JLE.620 O2-0- 

X001E630 010 

__4QQ1E64D JL_30-J&6_» 

X001E650 007. 

____UE_6_ U7-, 

X001E670 060, 

.j4Q0i£j_80 nsi> 

X001E690 Oil, 

--X001E7G0 ^_oi_.a6.3., 

X001E710 012, 

-xaaiE-7-2o 012-, 

X001E730 024, 

.JCGOXE-740 T 0-3-1-* 

X001E750 015, 

.JC004-E-7-60 -St._92-.a0-7* 

X001E770 010, 

-XO01E7-80 — 02-3 , 

X001E790 022* 

._X05-1-E-800- -1-00* 

X001E810 * 93 007» 
._XG0-l-£-82O- 0-1-4* 

X001E830 012, 

-XOQ_ E 840 1 00-, 

X001E850 * 20 010 
-X0O_S-O0O-+- x--2-ai-o- 

X002E010 120 

..X002E-020 -0-0-1- 

X002E030 124 

-X0.02E040 0-7-1- 

X002E050 020 

.-XaO-EOM J : -020- 

X002E070 052 

-X0G2-E-080 ■»- — 1--0-50- 

X002E090 020 

-JC0O2E-1-00 — — 02 5 - 

X002E110 020 



9- 

1- 


.__9.3- 


S---0- 

* 7 
45-1-0 » 
1012» 
0261-* 
5463, 
Q-25X* 
4250, 
44-3-0, 
4161, 
41 61-* 
4160, 
43-1-0, 
4524, 
-1 7-0-1- , 
4510, 
0660, 
0220* 
0000, 
0311* 
02-50 » 
4640 » 
0000, 
X 2 
S---0- 


X— 3- 
K 5 
—2-1- 
S 
H--1-2- 

* 1 



-odi- 

001 
050 
052 
050 
050 
010 
010 

050 
-050- 
024 
020 
001 
001- - 
024 
-0-10- 
050 
1-34 
010 



#--20 

* 20 
H- 12 

* 8 



-TO- -*20 " IF" -NO- Q -MSGS- DUE 

TO *20 IF NO BUFFER AVAILABLE 



010 



H 4 
P 12 
-8-61- 
» 64 
#-92- 
H 20 
■T-—-G- 
I 1 
■T---0- 
* 10 
.---V£. 

U 3 
.£ — 1„ 

T 
S--.0-- 
» 36 

2-. 

= 64 
4-93- 
P 



ADVANCE H4 

COMPOSE Q MESSAGE 
-TIME- 



050 

0-1-0-B-2-3- SEN0--Q-HE-SSAGE- 



5 -2-3-,- 1062- 

626,2501 

1 42- ♦ 4416- 

447,1016 

22-3-^24-3-1- 

662*5200 

S2-l-,0442- 

463,4047 

602,-3064- 

622,2431 

42-2-^1462- 

000,0000 

143*2016 

520,7045 

342*2464- 

522*4416 

ooo-,oaoo-- 

120*7063 
342-* 4064 
521,5452 

000*0000- 



-MESSAGE -- 

•PRESS »IN* FOR JOSS SERVICE- • 



--MESSAGE 

'PLEASE TYPE YOUR INITIALS.* 



- -M ESS-AGE- -COMPONENTS 

' YOU ARE NOW NUMBER? 



MESSAGE COMPONENT 
-*---I-N--TH£- QUEUED *--- 




145 K 40 
0-50- -H-- -9— 
050 H 12 
052-H-12— ■ 
010 - 
0-24 -U-- -4-- 
020 H 1 
0-10-S— -_- 
124 K 35 
002-*-10— 
124 K 31 



SERVE OPERATOR MSG (TEMP INCOMPLETE) 
-SIGNAL -SERVICE- 



-T-0- -X-3 - 1 F- NO - M ES-SAG E-5--- - SE-T- -H 9v 



-SET-H1-2 

READ CLOCK 
-UPDATE -ACTIVITY- 



TO »10 IF *T0» 



TO *20 IF *TC» 



-XG02ET20 025 

X002E130 020 

-X002E-140 025 

X002E15Q 020 

-X C02E-1 60 025 

X002EI70 020 



-JC00.2-E-1-8C 020 

X002E190 025 

--X00-2-E-20Q G2Q 

X002E210 025 

-X0O2E2-20- - - 020 

X002E230 025 
. -XQ0-2E240 1-30 

X002E250 * 10 020 
-XQ02E-260 0-1-0 

X002E270 * 20 020 
-X002E-280— — 142- 

X002E290 * 30 020 



- -X GO-2^-3 eo- 

X002E310 
--X902E-320- 

X002E330 
-XOO-2E-340- 

X002E350 
-X90-2-E-360- 

X002E370 
-X99£E-380- 

X002E390 
-XnJ02E460- 



-020 



* 40 



X002E410 
-XSG^E-420 

X002E430 
--X66-2E-440 

X002E450 
— X-00te4o0 

X002E470 
"X60-2€475— — 

X002E476 

--xeo-2^480- — 

X002E490 
— XO0-2E500 

X002E510 
--X0O-2E52-O- 

X002E530 
-X0O-2-E54O- 

X002E550 
-XG02&552- 

X002E554 



K- 

H 

K 

H 

K 

S 

H 

K 

H- 

K 

H 

K 

S- 

3 

X- 

H 

K- 

H 

s- 

L 

iMrO-X- 
020 H 
024-U- 
020 — 

0-2-5-*- 

025 I 
0-2-5-i- 

025 I 
-*-4-2-Q-20-H- 

001 * 
00-2-»- 

024 U 
--«— 43-0-2-0 

* 44 020 S 

0O2 - *" 

020 S 
-0-20--$- 

L 

-o-to-x- 

* 45 120 

oi-o-x- 

* 46 120 

oi-o-x- 

* 50 020 H 
-0-20--&- 



a 41 



-3-1- - 

9 

29 

9 

30 



-9- 
33 
-9- 

34 

... 9 . 

32 
--0- 


--2- 
12 
26- 
12 
--Q- 

2 

-1- 
12 

-0" 

■9-1: - 

2 

1 
— 4~ 
44 
-44- 

3 



002" 

124 

002 

124 

002 

010 

124 

002 

124 

002 

124 

002 



-*-20- 

K 29 

* 30 
K 30 

#•40 

= 54 
K-33 

* 50 
K 34 

* 60 
K 32- 

* 70 



TO *30 IF «0N* 
TO #40 IF »OFt 

BRING IN PROGRAM FOR STN 
-T-0-*50-IF- *RC 



-TO--*60-iF—tEJ» 
-TO-*70-IF-»-RI-»- 



010 a 48 



*T0» TREAT BY SUBROUTINE 



024 
010 
142 

e-i-o- 



K 26 

X -2- 

K 29 
*-4-? 

L 2 



'TC* SWITCH BACK TO USER 

( SU" ERASES-TC) ~ 

'ON' ERASE SIGNAL 
-CHANGE - ST AT E- TO L 2 



G2G- 

020 

-X0&2-E556- 0-20- 

X002E560 020 

-X0-02-E-5-7-0- 0-50- 

X002E580 
-X-00-2E-590— 
X002E600 



-X00-2S6I-0- 
X002E612 

-XQ0-2E613- 
X002E615 

-X-002E616- 
X002E617 






L 
-H- 

S 

-s- 
p 

- p- 
001 * 

920-$- 

51 010 X 
■-0-29- H- 
020 $ 
L- 

020 H 
020-S- 
020 $ 



-60- 




-4"4- 


--G- 


— 2- 


— 2- 



— 2- 

12 

— 0- 

13 

—9- 


__0- 



— 0- 

51 

— 0- 

10 

-1-2- 


-1-3- 

9 
— 0- 





142 
052" 
124 
001- - 
001 

ooi-- 

001 

025~ 

025 

020" 

052 

050" 

010 

oio- 

010 

oi-o- 



K 30 
*-41- 
K 5 
*-42- 

* 45 
#-•42" 

* 46 
H-12- 
K 1 
H---4 

* 43 
H— 4" 

» 58 

s — - r 

= 59 

a--47" 

L 



-GO- BACK" TO -Q- SERVICE" " 
■OF* ERASE SIGNAL 



TO #45 IF L17 OR L18 



TO *46 IF L20 

-A0^US-T-H4— I-F-NECESSARY- 



RELEASE BUFFERS (IF ANY) 



RELEASE DRUM (IF ANY) 
"CHANGE - STATE- TO " LO" " ~ 



050 H 15 



SET DELAYED *0F» FLAG FOR READING 



050 H 16 



SET DELAYED '0F> FLAG FOR PUNCHING 



142 
0-1-0- 

141- 

010 

0-1-0 

024 

02-5- 

010 

010- 

142 
010 

141 

010- 

010 



K 33 
=-47 

L 13 
■R— 1- 

= 58 

•a---5- 

I 1 
J— 2- 
$ 1 
=~22" 

K--34- 
= 47 

L-1-3- 
R 1 

-a -se- 
as 5 



•RC» ERASE SIGNAL 
CHANGE- STAT £- TO - LT3" 



■READ-SUFFER- 

RELEASE BUFFER 
-CONVERT 



TO #51 IF MORE ROOM ON THIS PAGE 
TYPE- TIME-LI NS-~AT~TOP "-OF~NEXT-PAGE- 

TO X10 FOR INPUT PROCESSING 
-♦EJ*- -ERASE -SIGNAL 

CHANGE STATE TO L13 



READ BUFFER 

RELEASE- BUFFER 

CONVERT 



--XQ02E-62C- 

XC02E630 
--X002E640- 

X002E642 
-XC02E644-- 

X002E646 
.J4Q02E648- 

X002E650 
-_XO02£652- 

XC02E654 
_X.O02E656-. 

X002E658 
„XQ02£660_ 

X002E662 
._XO02E664_ 

X0Q2E666 
.-XJQQ2E668- 



X002E670 
.J1O02E672- 

X002E674 
..XO02E676- 

X002E678 
_X0.Q2E6.8.Q- 



^2_ e . 

. 010 
-#--70-020 

024 
-#-7-1-020 

025 
.02-5- 

025 
__■ 02-5- 

025 
— 025- 

025 
0-25- 

025 
025- 

025 
025- 

025 

025- 

025 
025- 



S---D- 

x 16, 

H--1-2* 
U 

■ ■am ■*' In' '— ■■ 

* 90 

I 1 

I — 1- 
I 1 

I Z~ 

I 3 



0-1-4 -=-22- 



X002E682 
.J_Q02£68__ 

X002E686 
.J-Q02E.6.88- 

X002E690 
_Jt_j_2Ef__2- 



* 72 130 
JL_7.3_G.2Q~ 
010 
-#—74-0-2-0- 



UXQ- 

* 75 020 
020- 



X002E694 
._XG02£.696_ 

X002E698 
._X.Q02E.730_ 

X002E732 
_XiIQ2_._3.4_. 



* 76 020 



X002E900 

.J_QQ2£19G2— 
X003E00O+ 

._X.003E.010— 
X003E020 

_XO.0l3E03.0- 



010 
it_78_12Q. 
020 

_ cao. 



I- 
I 

I- 

I 

-I- 

I 

I- 

r 

i- 

s 

_$_ 

X 

.$- 

L 

X— 2- 
H 4 
.H-l.2- 
S 
L— 5- 
X 1 

a_ 

s o 

.X — 2_ 



-I- 

1 

-l- 

1 

1 
-2- 

1 
-1- 


.0- 

2 



142 

052 

124 

001 

001 

001 

001- 

001 

001 

001 

001- 

001 

001- 

001 

001- 

001 

001- 

001 

05-1- 

010- 

o-i-a- 



002 

050- 

010 



-K--3-2-- 

* 71 
K -5- 

* 72 
.♦-74- 

* 72 
.»_. 7.5.. 

* 72 
#..73- 

* 72 

.*_.7-a- 

X 13 
#_72- 

* 78 

* -72- 

X 13 
.*__f_3.. 

X 13 

.tf-7-3-- 



-TYP-E-TIME-I_.N_- 

TO X10 FOR INPUT PROCESSING 
-*-R-I-t- -RESET- 



- -TO- *-74 -IF- 12 

-T0-*75-If--_4 

-TO- -#73~I F- L6-- OR-L-7- 



-T-0-*7-3-IF-L-ll- 
TO X13 IF L12 



TO #78 IF L14 



TO X13 IF L16 
-TO- -*7-3 - 1 F- -L-l 7- OR - LIS 

TO X13 IF L19 
-TO- #-73 - -If- -|-20 

HALT INCONSISTENT STATE 
-KIGK-OU-T-PRQGRAM- 



c_-47__. 
L 3 

* 76 

.H — 4— 



BACK TO SIGNAL SERVICE 
- -CHANGE-STATE -TO-L3 

--3ACK--T-0-&-I-GNAL--SERV-I-C-E- 
SET H4 IF NECESSARY 



= 47 
■L— 5- 



CHANGE STATE TO L5 



X003E040 
.-X0O3E-Q50I 

X003E060 
.-XO03E.O7O- — 

X003E080 

-jtcuxaEaao 



X003E100 
.-X003E-110- 

X003E120 
-XO03E-I30- 

XQ03E140 
_XQQ3E-l-30- 



X003E160 
-XOO-3E-170- 

X003E180 
-XOO3E-1-90---- 

X003E200 
-X.003E2X0 

X003E220 



•» 90 

.i>__91 

X 3 010 
{__._.- 

* 1 020 
020- 

* 2 020 
.0-20- 

024 
-02-Q- 

025 
010- 

* 3 020 
.0-2-0- 

024 
02-0- 

025 
0-1-0- 



BACK TO SERVICE 

GS0-P-1-S SET-R-I--FL-AG-F0R--LM-J--L14- 

010 » 53 KICK OUT PROGRAM 

BACK— TO-SIGNAL— SERVICE- 



L 2 
-L-1-7-* 



* 4 020 
-0-2-0 

* 5 020 

024 

020 

025- 

* 6 020 



s 
.*___!.. 

L 17 
-L..-20- 

$ 
■1.-1-8- 

U 4 

H 1 
.» — 5_ 

L 16 
L-2-0- 

U 4 

H 1 

.,» 5- 

L 19 
L--1-8- 
L 12 
U— -4- 

H — 1- 
L 11 



0-1-0- - 

001 

001- 

010 

0-0-1- - 

052 

024-- 

005 



*—-2.- 

* 2 

■x— a- 

« 
.» 3.. 

s 1 

X 8 



TASK SELECTION 
-TO- *.]- - j F- -J-REA DER - READY « -*-£LS E- -TO -*-;_- 

TO #2 IF NO STN REALLY WAITING FOR READE 

■T0-X8-IF-N0-STN--PUNGHING-(INITIAL~IZE-REA- 

READ CLOCK 
-TO-^-3-IF--NO-5TN-R£A0-I-NG 



TO X8 IF READING IS OVERDUE. 



002 
O-O-t 

052 
024 
005 



* 20 
.*— -4- 
S 1 
J---9- 
X 9 



TO #20 IF STN WT6 TO READ 
-TO- -*4 - 1 F--NO - STN -PUNCH I NG- - 



TO X9 IF PUNCHING IS OVERDUE 



001 
001- - 
001 
052- 
024 

■001- 
001 



# 5 
X--J9- 

* 6 

■S---1-- 
J 7 

■h- 7 



TO #5 IF NO STN WTG TO PUNCH 

-T0-X^-IF-NO-STN-R£-AO-I-N6-{-H*fT-I-A_fZt-PONC-H" 

TO #6 IF NO STN WT6 FOR NORMAL PROCESSIN 



-TO -#40 - 1 -F-S-T-N- VERDUE-FOR-PROCESS I N6- 
TO #7 IF NO STN WTG FOR BUFFER 



-XGG3E-230 020 

X0Q3E240 # 7 020 
-X00-3E-2-50 020 



X003E260 

-X003E270 
X003E280 

-X0G3E-500- 
X003E510 

-XOO3E520- 
XO03E530 



020 

010 

20 105 

40-020 

020 



020 S 



-X003E.540- -•— 020 

X0G3E550 
-XGO3E-560- 

X0Q3E570 
--XQQ-3E-580 

X003E590 
-X003E600 — 



050 

___*__5 0-02-0 

020 

020 

_____ 020- 

X003E610 050 

-XQ04E0G0+- -X---4-0-t0 

XQG4E010 020 

-X004E-920 ---0-5-0 

XOOAE030 020 

-X004E-04O 020- 

XCQ4E050 002 



-X8Q4E-O60- 

X004E070 
--X004E-080 

X004E090 
-X-0O4E-1-O0 

X004E110 
--X904E-120 

X004E130 
--X-8O4-&140 

X004E150 
-X-004E-1-6-0 

X004E170 
-Xe04-E-18i> — ■ 

X004E190 
-Xe04E20O— - 

X004E210 
-X-004E2-20 

X004E230 
-XQ04E240- 

X004E250 
-X004E-260- 

X004E270 
-X-004E-28O 

X004E290 



.*.__ 1-0-2-e- 

* 2 020 
-050- 

* 3 020 
050- 

025 
02-0- 

020 

— ■*-- i-i-02-e- 

025 
0'25~ 

020 
"052- 

020 
--024- 

010 



H" 10 
U 12 

-L--1-8- 
L 20 
X 1 


■L--1-2- 
$ 

L--1-3- 


-S--0 

H 8 
-L— 1-1- 

5 
-L— 1-3- 

S 

... S Q._. 

H 8 
-S---Q- 

P 10 
-P---2- 

A 14 

-S — 0- 

* 1 

-j-tz- 

P 2 

-P---2- 



■ 002-* -50- 

002 * 40 
006 X -8 
006 X 9 



Oil 
050 
010 



-H 



X 



010 
010 
010 
05O-H 
010 - 

L 

010 * 

010 -■-=> 

014 s 




-1-2- - 
47 
13- 
54 
-49 

4 
-1-2- 
47 
1-3- 
54 

49 

25* 



-TO" *S0 - -I F" "BUFFER ~ AV AI LAGL E 

TO #40 IF STN WT6 FOR PROCESSING 
-TO-X-8 I -F--ST-N READING 

TO X9 IF STN PUNCHING 
NOTHING TO DO, GO BACK TO SERVICE- 
LOOP TILL Tl TURNED OFF 
-SET- STN- CONTEXT- 

CHANGE STATE TO L13 

BRING IN PROGRAM 

UPDATE- STN -ACT IV IT Y— - — ~ - ■• 

SET START TIME AND FIRE 

-SET- STN- CONTEXT- 

CHANGE STATE TO L13 



* 12 



* 13 



-P 1- 

K 34 

S---0- 

* 50 

' .»»» < « _■ ' ■ -• - 

H 19 
K 1- 

* 11 
*--_-.- 

* 11 
■B--S1- 



001 

0-1-0 

050 

010- 

010 

050- 

024 

052" 

001 

1-24- 

001 

01-0- 

052 

001:- 

001 

001" 

024 

01-0- 

025 

052- 



* 1 
■$—_-- 
P 1 
•=-23- 
X 5 
■P— - 2-- 

K 3 

•*— -3- 

E 6 

•K-34- 

* 2 

■a-27- 

* 11 

E---6- 

* 12 
♦-1-3- 
K 2 

*-i-r- 

* 50 
* — g-- 



BRING IN PROGRAM 

UPDATE-STN -ACT I V I TY - 

SET START TIME AND REENTER 
-FIRE- 

JUMP IF UNCONDITIONAL 



a 25 



-EVALUAT-E-GONDITTON" 

JUMP TO ADVANCE IF 

-FIN0-VER8- 



DOESN'T HOLD 



-fNTERPR£T"V£RB-- 






9 
■50" 
* 51 
-■♦-66- 



GO TO-GXXX 



-ooe 
ooo 
-ooo 
ooo 

•004 

ooo 

-X 004E-3 00- 000 

X004E310 006 

-XOO4E-320- 000 

X004E330 000 

-X 4 E-3 40 000 

X004E350 000 

----000 

000 
004 

100 

-5-010 

020 



-X004E-360-- 
X004E370 

-XO04E-380--- 
X004E390 

-XOO5EO0O+- 
XOO5E01O 



-#~60- 

6 O 

,0000, 

,0000, 
,0000, 
,0004, 
* 3011 » 
*0452» 
*00O6» 
.2052. 
♦0006 » 
»0O06. 
♦0602* 
t0004» 
,0006* 
,0000* 
,4051-* 
,0000, 
-$—- 0" 
P 16 



063 » 05-2 4- 
000,4417 
000,64-1-7-- 
417,1605 

603*0514 

201,2305 
4-3-1- ,2005- 
423,2216 
001,0705- 
205,0104 

516,0310 

617,2215 
3-24,1-7-20-- 
000,4717 
405,2405- 

000,0000, 

002 * 1 



-SET— — 
DO 

-TO 

DONE 
CANCEL- 
ERASE 

-TYPE—- 
RETURN 

-PAGE— - 
READ 
PUNCH- 
FORM 

-STOP— - 
GO 

-DELETE - 



ADVANCE 

TO *1 IF 



P16 STILL GOOD 



--xcoseozol.— 

XC05E030 
-JCOO£E-040 

X0O5E050\ 
-X005E060 --V - 

X005E07C 
._X00S£Q80 

XG05E090 
_J£00SEG95 

X0Q5E096 
_X.O.OSEXQQ 

XGQ5E110 
._XG05i*.12D____ 

X0Q5E13Q 
.-XQP5E14D 

X005E150 
._X.QQfiECLQO.+ 

X006E005 
__XG0.6E.G10 

X006E020 
.-X.OOfiE.Q30 

X0G6E040 
_&QQ.6.EQ5.G 



020 

050 

020 

002 

- - 020- 

020 

020 

* 1 052 
.024 

* 6 020 
-#_.2-020. 

* 3 050 

*___4_nso. 



■Q---9 
P 21 
$---0 

ft 1 

H 23- 
H 26 
H--2-5- 
ft 2 
K — -2- 



XC06E060 

_XQ0_6_EO70_ 

X006E080 

_XQO££090 

X006E095 
X006E10 



X006E110 

._XJ2Q6£JL2Q__ 
X006E130 

._X_QQ6£_L40 _ 
X006E150 

_J1_Q2_JQ.Q0._- 



ft 5 020 
0.2Q 

010 
„X — 6.-010. 

020 
0.2Q 

020 
0-20. 

025 

0.02- 

ft 1 145 
050. 

025 
020. . 

020 

120. 

* 2 020 
0.2Q_ 



JC 



X007E010 
.JS.Q0JEJQ2O-. 

X007E030 

.J4.O0.7E.Q4Ol. 

X007E050 

_x.aa7E.a6G_ 



X007E070 

-XOIOEGOOJ-— 
XG10E040 

._X010£.Q50— _. 
X010E060 

___a__azQ . 

X010E080 

.Ji01O£Q90 

X010E100 
.JiOlOEllO 

X010E120 
-XOI0.&1-30 

X010E140 
.-XQ1OE-150— - 

X010E160 
--X01GE-470 

X010E180 

_x.giqe.l9g — - 



010 

___ia. 

020 
.__0L2O- 

020 
___O2-0- 

020 
0-1 0- 



X010E200 



ft 1 010 

.x-io-ai-o. 

023 
XL2-4- 

010 
_J__10_O2O- 

020 
02-&. 

020 
02-5. 

020 
025- 

020 
0-2-5- 

010 
.*__l-l_0-2O 

020 
023- 

020 



P 16 
P--L6. 

S 
S---Q. 
X 1 

S Q~ 

P 15 

S 
S___0- 
H 8 

.ft 2- 

K 41 
H___2. 
K 35 
S— Q- 
L 13 

0.. 

L 13 

s-__a. 

L 12 

£___Q. 
X 1 

.S OL 

K 4 
S— 45- 
Q 8 
-0- 


-1_ 

5 



■ oo-t-* 

010 s 
010 = 
010 s 
001 X 
001 X 
010 -ft 
010 s 
052 ft 6 
050 Q 9 

001 ft 

010 X 
010-X 
010 - 55 
010--S-53- 



--&■- 

1 
51 

1 
-7-- 

7 
__!__ 

i 



-FIND-CURRENT- STEP 

TO ft! IF FOUND 
• TO -X7- ( ASCEND > I F DONE . 

TO X7 (ASCEND) IF DONE. 
-G I MM I CK- TO -GET- -NEXT- 



SET Q9 



4 - 

6 
-7-- 



002 
056- 
010 

oia 

025 

.120- 

001 

12-4. 

001 

0.1O- 

050 

.aio_ 

050 

oia. 

0.1.0 _ 



X 13 
_p_____3__ 

* 7 

J 4 

0- 

X 4 

-K-35-- 
ft 2 

_ss_A8- 
H 12 
.ft.__.l_ 
H 12 
»_4-7_. 
L 12 
s_S3- 



SET P16 FOR NEXT STEP AND GO TO X6( FETCH 
-SET--P-16~AND-G0--TQ-X-7-lASGEND) 

SWITCH TO USER — TASK COMPLETE 
-KICK- -OUT- PROGRAM 

GO BACK TO SERVICE* 

-FETCH — -' — ■ ■ 

JUMP IF INTERRUPT 

UNPACK 
-READ- -CLOCK- 



.JUMP— IF-SHOT— T-I-ME-I-S-UP 

JUMP UNLESS MINOR CYCLE MSG 



JUMP IF NOT »T0« 
-T-REA-T- -»- TO»- -8 V- GUSROUT-I -NE- 
RESTORE H12 CONTEXT 



CUT OFF THIS SHOT 
--CHANGE-S-TA-T-E-T0-L12- 

--KICK-OUT 

JUMP TO Q SERVICE 
- ASGE ND (-TEMP0RA R V-)- 



.$- 
S 
X- 
X 

■ $- — 0- 
P 13 
4—1. 
♦ 40 
.R — 1_ 
P 1 
A02-4- 
R 1 
A-L2-4- 
R 1 
■K-34- 
R 1 
K--3-5- 
E 6 
P-l-O- 
P 1 
A-27- 
P 2 



050 P 16 RESET P16 FLAG 

040- -« -1-9- POP- -08- 9- GON TROL - STACK 

002 ft 1 TO *1 IF TASK NOT FINISHED 
04-O-S-5-5- SW-I-T-C-H-TG--USER- 

010 a 53 KICK OUT PROGRAM 

_ ... -TO-X-1-FOR-OUSUE- 5ERV-ICE- 



002 * 10 
0O2--ft--3O- 

001— ft— 50- 
124 A124 
0.02-ft-5O- 
124 A124 
002--* -50-- 
124 K 34 
002-ft-l-l- 
124 K 35 
002- -«- -1-3- - 

002--E--1-5-- 
124 A 27 
001-*- 19-. 
056 * 12 



TO X5 ADVANCE (TEMPORARY TO GET GOING) 
-PROC-E-SS-I-NPUT 

JUMP IF WTG FOR INSTRUCTION 
-JUMP- -IF- W-TG- FOR -FORM 

ELSE JUMP WTG FOR INITIALS 
-JUMP-l-F-WNE-WAS-EMPT-Y 



--JUMP--I-F- L-I-NE- ENDS- VM-T-M- -*-*-»- 

-JUMP--I-F-L-I-NE-3E-GtN-S--WI-TH--«-ft» 

- J UMP-I F-LIN E-BEG I N S - W -I-TH -LETT E R - 



-JUMP- -IF- L-I-NE- BEG I NS- -W I TH- -O I G-I-T- 
ELSE MALFORMED STEP 
-E-RROR--IF- CONDITIONAL- 



REPLACE FINAL PERIOD 



--X01GE-2G5 

X010E220 
-X010E230 

X010E240 
-X010E-250 

X010E260 
--X010E270 

X01GE280 
--X010E285 

X010E290 
-XQ1GE3G0- 

X010E3O5 
--X0-1-0E-310 

X010E315 
--XG1OE-320 

X010E325 
-X0-l-eE-33O 

X010E340 
--X0-1#E-3S0- 

X0I0E360 
-X9-10E-37Q- 

X010E380 
-X-0-1-0E-39O 

X01GE4OQ 

-xe-toE-4ie 

XQ10E420 
-X-eiQ£if3Q 

XQ10E44G 
-X~Q-10e450 

X010E460 
--X9-1-QE470- 

X010E480 

--x-ei^>E49e- 

X010E500 

-x-o-i-qesi-o- 

X010E520 
-X61-0e53^ 

XQ1GE540 
-Xei-OE-550- 

X010E560 

-x-e-ioesTO 

X010E580 
-X0-1-0E-59Q- 

X0X0E600 
-X0-1-GE6-1O- 

X010E620 
-XO-1OE-630 

X010E640 
-X04-OE-&5G- 

X010E660 
-X01-OE67G- 

XG10E680 
-X-0-1-0E&90 

X010E700 
-X94-OE71-0— 

X010E720 
-XG-l-OE-740--- 

X010E750 
~X0-X0E-760- 

XQ10E770 



•*-14 




FIRE 

SET LAST- CHARACTER- ADDRESSES- 



EVALUATE STEP- NUMBER 

VALIDATE 

SKIP--I-F-NOW-AT- 

VERIFY SPACE 

SET-~STEP"-NUMBeR--IN-CON*TEXT~ 

POP 03 



TERMINAL" "MINUS- 



JUMP IF LAST CHARACTER NOT PERIOD 

REP LACE - F-I-fIA L- -P£R 1 00" "BY" PSEUDO-PE R-I"OD " 

JUMP IF NO CONDITION 



REPLACE SP BEFORE « IF* BY ZERO 
-FIND--STEP--IF-CA-N 

JUMP IF CAN'T 
-ERAS-E-DUPL-rCATE- 

FIND PLACE AGAIN 

PACK-STRING — 

JUMP IF PART EXISTS 

COMPUTE- p-ART-(T>20r FOR ^ STEP «P2I) 

SET UP PART ID IN Q10 STRUCTURE 



SET"'UP-5TEP-TN~QnrSTRUCTURE" 



CLEAR " * WTG - FOR" "FORM -t 
FIND FORM IF CAN A./C 

JUMP -IF" CAN »T- 

ERASE DUPLICATE 

F IND -PL ACE-AG AT N" - 

PACK STRING 



ST-GNAL" 
P22 



JUMP- -IF - WO -CHAR-AC TERS 

JUMP IF 5 OR MORE CHARACTERS 
P R I -ME- 01 



* 41 



-JC010E-780 023- 

XQ10E790 020 

- X lOE 800- 075 - 

X010E810 020 

— X010E820 - 054 - 

XG10E83Q # 42 020 
__X0l.Q£a40 006- 

X010E850 120 

--X01OE860 020- 

X010E870 010 

__X0.iaE.880 * „ 45 020 

X010E890 
__XQ1I-J_2QD jQlO- 

X0X0E910 # 46 050t 
__X.QlOE.920 0X5 » 

X010E930 * 50 020 
_X.alQE.9.3 5 . 2 - 

X010E940 010 

_ -XQiaELQ G0J_ X _13 _ .010 - 

X013E010 020 

__X.Q13E.Q2Q_ .020 _ 

X013E030 020 
_JSiU2£LDAJQ _ 

X013E050 020 

___Q13_LQ6D 02-0- 

X0X3E070 020 

_-XQl3E_Q8Q j02-Q_ 

X013E090 020 

-mL3.El.QSl 



* 



_cao- 
i 020 



X013E110 
_____3£_2____ 

XG13E130 * 2 020 
-AQ_3JLL_0__ DZa- 

X013E150 010 

_X0JL3.£JL6.0 t_9.G_Jl54.» 

X013E170 024* 

-__Q13l£X8D .0-1-2-, 

X013E190 031» 

.JC013E200 -1-0-0, 

X013E210 « 91 064, 
-X0.13 E 22-0 0-1 2-» 

X013E230 007, 



._XD13£24D- _l_-2, 

X013E250 031, 

. _Z~-_-.EC OXH. 2— 0- -100 - 

Z E001 Z 1 100 

__-O.OjO.EOO0.-i_. s 0-0 1 0- 

=»OOOE010 024 

.__00_l£Q20 40-7- 

=»OOOE030 050 

.__Q0.C_E.a4Q -0-0-2- 

=000£050 « 1 024 
-J8-OOOE06O --S* — 9-0-1 0- 

«QQQE070 * 90+ 
.-sOO-LEOOO- _-.__i_.Oi0_ 

=001EOZ0 024 



K--34- 
P 1 
-32 

P 2 

P- : 2 

#-41- 


5---G- 
# 50 

s 0- 

a 46 
#_5-0- 
4270, 
45 £4, 
S 

s___o_ 

X 2 
S---Q- 
Q 9 
S---0 
S 
•a_„90- 
P 16 
S— JO 
S 
S— -Q 
S 
* — 2, 
S 
» 91 
S 
S---0 
X 2 
445-U 
4641* 
0-1-60, 
0630, 
000-0 » 
4251, 
4240, 
1313, 
44x0-1, 
4331, 
000-0- 
0000 
$ — 0- 
K 2 
0- 

H 
a — 1 _ 

H 1 



001—* 
004 Q 
050 Q 
025 K 
052 * 
050 P 
010-$ 
050 P 



45 

1 

3 

42 

1 
__1_ 

13 



-JUMP -IF- NOT-LETTeR- 



010 -s- 22 

010- »■ 65 
* 46 



-60- BACK- IF -MORE- 

CLEAR «WTG FOR INITIALS' SIGNAL 
-TYPE--T-IME--LIN£--AT-TOP-OF- PAGE-- 



ERROR, TYPE-* AGAIN' 



421,4445 
000>OGOO- 

010 * 55 
010 -a 53 



•AGAIN.' 



001 * i 
0.&G- -B -12- 
010 *> 64 

#._90- 

056 P 3 
0-1-a--— 7-- 
010 - 63 
014)--* -6-9-- 
010 - 25 



SWITCH TO USER 
-KICK-OUT- PROGRAM - 

BACK TO SIGNAL SERVICE 
-I-NTE-RRUP-T-T-RE AT-MEN-T 



P16 OK HERE 
-UNPACK- 

COPY STEP NUMBER FROM R TO S, 
-INS E-R-T- - PE-R-JOB- -AN B - E-H& -OF- -MS 6- 
SEND 



010 " 65 

__.&_-. 

010 - 55 
Gl.G-_=__53- 



461..»2451— 

163,1425 

4-23-f-14-16- 

522,3416 

000,0000- 

522,3042 

341-, 10-70 - 

122,6051 

501-,2462- 

250,0000, 

000- -0 000- 

000 0000 

052 » 9 
004-H---O- 
065 T 
024-*- -90- 
050 H 1 



23, 



SWITCH TO USER 
.KICK-OUT- PROGRAM 

BACK TO SIGNAL SERVICE 
~»-I NTERRUPTED-AT-STEP-*— 



'REVOKED BY IN-REQUEST.' 



-US ER-'-S- INITIALS 

LAST DECK NUMBER CALLED FOR 
-READ-CLOCK- 



*-- 
K 

P- 



_ -CCOE020- 020 - 1 

-CQ1E030 052 

-__Q.CaEO.AQ _L l_Q_'0~»-^=~0.5Q-£--— 1- 

=001E050 * 9 010 -~-~ • 



1 

_0 

2 052 * 9 

-2--024-K---3- 

1 054 P 2 



-EX-I-TS-W I-TH-T-I ME--I N- ACC-ALSO- 
-STEP- -ONE- CHARACTER 



LEAVES-NEW-CHARACTER- -I N-ACC— 



--00-2^090 *---2- 

=002E010 
-*003£OQ0 B---3- 

=003E010 
~=003E020 

=0Q3E030 # I 
._=00-3EQ40 

*Q03EQ50 * 2 
-«0O3£06O- Jt — 3. 

B003E070 
-S.0D3EO80 * 9 

*004EO00+ a 4 
._a0O4E-OlO 

=?0Q4E020 
~»Q04E©30 

»OO4EO40 
_* 04E0 5 0- _»_i_ 

»004E060 # 9 
--«00-5E-0Q0+- -=-— 5- 

«005E010 
-=0G-5E-G20 *— 1- 

*005EO3O 
_=-005EG40 — 

»GG5EQ5Q 



_# — 2- 

* 3 
- ■$> — /j. 



-=0O5£-060- — 

=005E070 
--*0O-5E-G80 

»005E090 
-*005E-1-QO -a — 6- 

=005E110 
--» 905E-129 *--H> 

=0G5E130 * 11 
-*9G5El-4e- *~3:2- 

=005£150 * 13 
-e 00 55-1-68 

»005E170 
-S6GS-E18G 

=005E19G 

•-aeosezeo 

*005E210 
--005&220 ™ 

*0Q5E230 
-*G05-£24G- 

=005E250 
-«G0-5-£260- 

=0Q5E270 a- 14 
-S.CQ5E-28C 



=G05E290 
--GO&E3G-0- — 
"003E310 

--= 0-G-5€-32■0----- 
sOQ5E33O 

-*005&34Q 

=005E350 

-=GO5E36-0-- 
=005E370 

--=&05£-38G---- 
«005E390 

-=G0-5E40G- 
=005E410 



* 20 



-*-2-l- 

-*-22 

* 23 
-#--29 

* 24 

* 25 



-0-24 

052 
-0-1-0 

024 
-020- 

020 
-0-52- 

020 
-1-24- 

002 
-01 0- 

010 

-024- 
020 

- 050 - 
020 

-050- 
010 

-0-1-0- 
024 
020- 
020 
020- 
025 
056- 
024 
0-20- 
025 
020- 

010 

,0-2-0- 
020 
-0-20- 
020 
-025- 
020 
■0-20- 
025 
-0-20- 
020 
025- 
020 
-0-20- 
025 
-0-20- 
020 
-020- 
025 
-0-1-9- 
024 
-0-20- 
050 
-056- 
024 
-001- 
050 
-01-0- 
020 
050- 
020 



K— 2- 
» 9 

S---0- 

K 2 

P 1 

P 2 



A--1-4- 
* 1 

S 
K---2- 
P 12 
P--1-2- 
P 1 
P-l-1- 



S---0- 
K 2 
A- 42- 

* 1 
.# — 4„ 

K 1 

•3S 6" 

J 13 

A-l-4- 
A 14 
■A-4-2- 

♦ 2 
J-l-2- 
K 4 
S---0- 
P 1 
-A-l-4- 
S 
P--1- 
A 25 
$~--8- 
P 1 
■A-22- 
S 
P- — 1- 
A 14 
P-- 2- 
S 
•P— 1- 
A 66 
«-H- 
K 2 
P---2- 
P 2 
■#-2-3- 
J 13 
-*— 24- 
P 1 



■6-1-0- -S — -0-- 

010 * 1 

052 * 9 

010 * 3~ 

024 K 3 
054--P---2-- 
050 P 1 
0-2-5 -A- -1-4- 
020 P 1 



0-5-2--*— 9 
024 K 3 
56- -#— -l- 

010 s 1 

050- 



-ADVANCE"TXT-NONSPACr 
-Efc IMTNATE-SPACESr 



- - L EA V ES- NONS P AC E"I N ~AC C 

PUT CPU IN NEXT S CELL (Pl2)+l AND Pll 



052 * 9 
e-50-R— 73 

010 * 3 
010-S — 1 
056 * 4 

O-20 ~- 

056 * 5 

124 

001 * 10 
050-*—-— 



-CONVERTER- 

F I LL- "W f TH- -CR+-EOM+ T ERM I NAlr "F ROM' "R I GHT 



050- 
050 
01O 
124 

oor 

010 
124 
001 

010 

124 

001- 

010 

1-24- 

001 

050- 

010 

124- 

001 



-2" 

10 



-»--20- 
A 14 

* 20 
-A--25" 

* 13 
-#--20- 

A 22 

■HH-1-3- 

* 20 
-A— 1-4- 

* 12 
-p— 10- 

* 20 
A—66- 

* 14 



CLEAR «IF» 
SPACE 



I 



-SPACE 

-RE-CORD- -H-f * - BY- -hOCN- -©F- "POL LGitf N6~ S-PACfi- 



052 * 29 

0-24- -K— -3- 
056 * 21 

020 

056 * 22 

0-20— 

050 — — 



P 2 025 K 3 
p — 2 -052-*-25- 
050 P 1 



EXIT "FROM -*20- 



_Q0.5-E420- _fc.__9-.G-10---- 

*006EOOO+ ' « 6 010 $ 
.____0<X6E010 024 K- 

s »qq6E02o 120 

= G.G6E030~- 020 R 

=006E040 020 Q 
* Q.0.6EQ 50- 020 _ J- 12 

»QQ6E060 020 $ 
_ 06 £0 7 it _ _ 1 _ .0 2 _ S 

«0Q6EQ80 056 * 3 
EQQ6EG.9 G-... .... 056 *.~~ 2 

=006£100 020 S 

._____G_i__l_fl_ 02Q-S---Q 

=006E120 020 $ 
=_QOfx£130 JQZ0-S---0 

=006E140 060 T 
5_J3.Q6E.liG 05 0__T~ 1- 

=006E160 020 S 
»_»_>i__i__>_ D_2Q_S___Q 

=C06E180 020 5 

._____P.______» ___Q_£___Q 

=006E2O0 020 S 

; _______Z12 060_L_„.0„ 

*Q06E220 * 2 071 5 
______PM23P _>__Q_P___L. 

=G06E240 020 Q 

-__J_Q_ ; ____50 ____3____Q_I___1. 

"Q06E260 020 P 1 
*006£270 « 8 Q?0 P 3_ 

*G06E280 * 9 010 
_ __Q06_E_290 * Jg.0 02.4. 

»006E300 120 

= t Q06E_310 0^.0 

"006E320 064 

. _____£___Q Q2CL 

=006E340 052 



052 
050 
001 
056 

-05O 
010 

-010. 
024 
070. 
010 

-O-IO. 
010 

-0-10.. 
071 

,070. 
010 

-ooa. 

010 

-Oia. 

010 
-01 0. 

050 
.001.. 

056 

.05a. 

002 

_aio_ 



.*•__. 9.. 
P 3 

* 8 
P 3 
P__2 

_ 1 

S-1Q. 

K 1 

0... 

* 20 
.#_.20- 

* 20 

.__.2G-. 

12 
..-0. 

* 20 

.__.2a. 

* 20 
■«• 20 

* 20 
.___. i_ 



EX IT -W I TH -bAS-T- CHAR- -IN" CONTEXT- -AND" ~ACC 
PACKER 

LEAVES - L-I-NK- - TO STRING - I !t P3" AND - ACC* " - 
SET P3, 

TO #8 IF VACUOUS 

SET P3. 






___3-. 
T 1 



■55- 



___J__Q5_L. 

075 
____1_12_4_. 
T 004 
P. 2_02A„ 



.J5.Q0_U_3.50 __-Zl-.X3i2.a- 

*006E36Q * 29 010 
.J_Q07__QOO__ ____7-.i__.a- 

»007E010 024 

___.Q£0__Q2JD __Q2 0- 

*007E030 020 

.___DJ_IQ_0_ H2Q. 

=007E050 » 1 023 
.__fi__Z£Q6__ .020- 

»007EG70 # 2 020 
-__J3_L7.EiO.aD 0.56- 

«007E090 * 3 056 
._=0D7JE10O_ _XZO_ 

-007E110 020 

.__0a___120 -020- 

=007E130 020 

__lQ.Q7E1.40 0.7-9- 

=007E150 » 4 056 
.__0_L7-£160_ 020- 

*007E170 020 

._~007__18Q azo- 

=007E190 020 

___CLQ_.E2-1D - 020.. 

=007E210 023 



« 21 054 

_■=■____ 0-50- 



5---Q- 
K 2 
K — 4-. 
J 12 
P___3- 
T 
A--4.2- 
T 

& 3~ 

* 4 
S--1- 
s 1 
5--1- 
S 1 
— 12... 

T 
S--1- 
S 1 

$— _1_ 
S 1 

$ 1- 

T 



.__2__ 
7 
.__17_ 
T 
K____ 
P 2 
P— 1 



052 

0.50-. 

052 

0.50- . 

001 

010- 

010 

024- 

004 

0-10- 

010 

0.10- 

010 
010- 

004 

0-1-0- 

010 
01 a- 
010 

010- 
014 



-4-NPAC-KER- 



* 9 
B...10- 

* 23 
T---0- 

* 2 
«_21- 
S 1 
K.__l_ 

*-_a. 
* 20 

#_20. 

* 20 

£ -._,- 

__-20- 

* 20 
__2Q. 

* 20 

,*._20.- 
» 1 



--PICK--UP-S0URCE--F-R0H--P3- 

TO *2 IF MORE 
.-SUPPLY - CR+E-OM- AND- EXIT- V-I-A - *2 1. 



--9O7-E-220 *-— 9-O-W- 

=0Q7E230 * 20 050 
. _=-Q0-7-E-240 #_ -2- 1 - 1-24 

=007E245 056 

_= 00.7.E 2 5 - 020 

«007E260 * 22 052 
. _* Q01EL270 *_ -23-03-0 - 

S007E280 050 

. _=?0OJX29O QQ2 ■ 

*007E30Q 024 

_s.QQ7.E310 „0 5 0- 

=007E320 056 

_s0DJX330 

=007E340 * 
._~007.£350 A. 

=O08E000+ 
__0fl8E0.ia— 



* 29 075 
K- -1-7 -024 -J 

* 22 010 S 
■*-23 024 -K- 

* 23 020 - 
«.-_-_- _002--« - 
T 3 021 T 
»___9-0-20--#- 

* 90 124 K 
P~l 0-074 — 
P 10 020 A 
#_.2-3 



7 

1-3- - 
1 

.... 2 -... 

29- 

3 
23- 

6 
21- 
45 



-e-xit- 



=0Q8EG20 
._=00-8E-030 

*008E040 
---0O8E-050 * 

=00SE060 
-=•00 8E-0-70 

«008E080 
-—QQ-8E-09Q * 

*008E100 
--*■ 00-8E-1-10 

-008E120 
-»Q08E-l-30 



=0Q3£140 * 
-^008€-l-50 *- 

-008E160 
•— 00-8E-1-7Q 

=008E180 
-=008 £-190 

*008E200 
-=-e08-E21t! •*- 

-008E220 * 
•-»e&8£-230 ■♦• 

-009E000+ 
-»609E0-1G 



=009E020 

-=&O££-G3-0- —001 

=009EG40 052 

_aoo$_0£0- j4.-_-i_-a2e- 

= 009E060 «■ 2 020 
-*0O9 ES-7-Q 02 0- 

=C09E080 056 

_a04j-9e0-9-0- JL__g_ -0-2-9- 

*009EX6o » 9 010 
-eO-iO-E-QQ^- j=-_10--024- 

»010E010 052 

-aQtOE-02-0 00-1- 

=010E030 * 1 050 
.S010E040- -0-50- 

sOlOEOSO ft 9 010 
_a 04-1-E-O 00-*- -a- -1 -1- -02-4 

*011E010 052 

-SO1.1E020— -050 

050 




SET P10 LOCN OF CONDITION 
SET CONDITION FLAG 



ASSIGN BUFFER TO STN 

SET H13 
EXI-T--MINUS--IF--NG-BUFFER-A-VAlL-ABtE- 

UPDA-TE-H-1-0- 



SET BUFFER BITS IN SCR FOR NEW SUFFER 



S 

-ft — 2-052-*- 

H 11 050 H 

-♦— - 9- 0-24- U- 

* 1 056 * 

- — 054 -hi- 
lt 4 050 — 
-H-12-024-U- 

* 3 010 S 
-H--1-4-0-5O — 



BACK TRA'CK^~~STN"At READY 'HAS LIMIT' " 

SET--StJCCE-S-SOR-TO-=-lv 

PUT NEW BUFFER ON END OF LIST FOR STN 
EXi-T--W1Ttl-80F-FeR-(-0R«l1— rN-Ht3r-AN0-ACC- 
ASSIGN DRUM TO STN (IF CAN) 



-9- 

14 
-6- 
2 
■1-1- 

-2- 
1 



SET H14 



-UPDATE- H-l-1- 

MAKE SUCCESSOR NULL 



■K- 

it 

-E- 
T 

0- 

■K- 



-2-0-1-0-$ 
9 020 Q 

-0-0 56-* 
020 - 

-0-020- T 



-a- 

o 

-l- 



-AS5-I-GN-DRUM 

EXIT WITH DRUM (OR -1) IN H14 AND ACC 
-DEAL- -GUT- -A -STORAGE— SPACE- 



=011E030 



2-0-10--$- 
* 9 020 P 
P— -7-020-P- 
P 8 020 P 



-a~ 

4 

-5— 
6 



-L EAVES - ADDR - IN -R { AGC Y 

-UNPACK- (Q3>- TO- -P 4i P5»P6-.- 



__=011£Q4O.- 

=011£050 
__«0.UE.06Q-- 

«011E070 
—SQllEOaO-. 

=011E090 
__=0„UE„10p_„ 

=012E000+ 
__=013£Q0D__ 

-014E000 

_s_ai5i_Q.ao_ 



=016EOQO 

__=01_T£QOD_ 

*018EO0O 

._«Q1__E0__D_ 
=019E010 

__S__1__E_QZ(L 

=019E030 
=Q19EG40 
=019E050 

._«_Q1S_L<_6_L 
=019£070 

____21__.ej28._l 



# 9 

= 12 
._= _13 

= 14 
.=..15. 

= 16 
.___L7. 

= 18 

__._19. 

* 



# 
$ 



=019£090 
J=Q19E_100 
=6l9Ell6 

=_9_9EJL2Q_ 

=019E130 

=019E140 



* 4 

.*___5. 

* 9 
.*_JL0. 



=Q19£150 
=019E16Q 
*0l9E170 
= 019E190 
=019E190 
__J-JL9.E2i-.CL 



.*__U. 



* 12 
____L3_ 



*019E210 

__.Q19_l2.2Q_ 
=019E230 

J_Q_.__E__.4D_ 
-019E250 

__I2_L9.E26.G- 



»020EOOO+ 

._~02i)i£.QlD__ 
*02GEO20 

.__.021i£G30__ 
"Q20EG4Q 

__L02a£oac__ 



* 14 
.i_._L9. 

* 92 
.i<__9_4. 

* 96 

jt_aa. 
= 20 



S020E060 
_=02il£Q70_ 

«*020e080 
J_0__0EQ90_ 

*020E100 
-5__20£JUL&- 



.__.___ 



=020E120 
_=D2QE13iX. 

=020E140 
_=_G__C__.150_. 

=020E160 
-S.OZ0E-IX0- 

=020E180 



* 2 
_» — 3. 



«• 4 



Jt_10. 
-s- 5 



-XL5-0-P-— 9- 

124 K 11 
_072 1 

020 Q 3 
050- P- 5 

124 K 13 
_D.LO_ —•_-_- . 

004 *■ 92 
. .00.4 -#--9.2- 

004 * 94 
0.04 #.94. 

004 » 96 
_.D_Q_4--*--a6- 

004 * 98 
_0Jl4-#_.9_a_ 

024 K 2 
JD.60-T. fl_ 

052 * 2 
___5Z_____5_ 

001 E 
-OJLG ___-_-_«__ 

056 * 4 
_-Q56__-__ 5_ 

050 Q 
.92.0. _-_-_--_ 

010 

-&2A _(_____._ 

060 T 

05? » n 

052 * 14 
. O.2.Q. _-r__r__ 

050 Q 

-_>5fiL_*_lA_ 

056 * 13 

-G5Q_^-_--_.. 

050 

.0-ia_*-~_.~_ 

Q 2 

Q___4_ 

Q 6 

o a_ 

010 S 

.a2A-K— 2- 

020 S 

12Q 0- 

050 P 6 

JQ20-.JC— 4- 

020 * 91 

..oza-P— 1_ 

025 K 35 
..Q2Q-P— 1- 

050 T 2 
.023-T — 2- 

020 P 4 
.i_20-*~9.2- 

020 P 6 
.0_24-P— _6_ 

024 T 2 
-Q20-P---4~ 

050 P 4 



0-20 -Q— -3 



1 
4 



071 

050 P 
124 K 12 
020 Q 3 
050 P 6 



010 * 

o-ia-*-i-&- 
oio * o 

010 *. 10- 
010 * 

010 * 

oia-*-iO- 

052 * 9 
j0.56-*_1_ 
024 K 3 
Q2Q--Q — XL- 

004 

056--*— 3-- 
024 K 1 
JQ20_===_ 

060 

Q3H _--_-_-._ 



PUSH Q2-G3 OPERANDS 

- -POP- -Q2-Q-3- -OPERANDS- - - 
PUSH Q4-05 OPERANDS 

POP Q4-Q5- OPERANDS--- 

PUSH Q6-Q7 AUXILIARY 

-PQP_ 436-07- -AUX-I LIAR V- - 
PUSH G8-Q9 CONTROLS 

. .POP- -G&-Q9- -CONTROLS- - - 



Q52--*-19_ 
052 * 11 
0.24_K 3_ 



004 Q 
12_4_J___5_. 
056 * 12 
Q2A.X — X-- 

020 

020--__-_-_ 
060 



Q 2 

Q & 
_0___8 »- 



05.2-- 
010 
0-50- - 
050 

0-50 

056 

124- 

001 

124- 

010 

002- 

050 

0-56- 

073 

0-7-3- - 

050 

024- 

020 



*—- SL. 
= 12 

P---4- 
T 1 
.T-— 0- 

# 2 

K--3-S-- 

* 7 

K- •___-- 

T 1 
->---2-- 
2 

- — -1-- 
P 6 
K — 2- 
P 2 



EVALUATE NUMERICAL EXPRESSION (UNSIGNED) 



SWITCH *3 THEN *4 AFTER FIRST SIGNIF DIG 



ACCUMULATE 



--«G2Oe-t90- 
-020E200 

-=020E210- 

=020E220 

-=020£2-30- 



* 



*020E240 
._*02flE250 .#---8 

=020£260 
-«02.QE270- 

-020E275 
--.020E280 ____ 

*020E290 * 11 
-=02O£3G0 

=020E310 
._»02O-E-320 *--L2 

=02Q£330 
_!U)20&34d— — *— 1-3- 

O020E350 * 9 
- Jt 020 E-3 60 *- -2 

"02QE37O 
--aOZOE-380 ^--90 

*020E39Q * 91 
~«02QE400 *— 9-2- 

=O21EO00+ * 21 
-aC2-l-E-0l0 

=021E020 
•-» G2-1-E-03G 

-021E040 * 1 
-=-02-l£05Q * 9- 



-€2-4 

054 
-050 

020 
-025 

020 
-021- 

024 
-024- 

052 
-023- 

004 
-060- 

002 
-02-5- 

071 
-024- 

010 
-02-0- 

014 



K---3 
P 2 
p..__l 

P 1 
■A 27 
T- 
P---4. 

* 90 
T---1- 

* 11 
■P 6 

P---6- 

* 12 
T---1- 

10 
P 6- 

P--4- 

* 5 
— - 9- 



056- 
020 
0-14 
124 
001 
001 
002-- 
001 
024- 
010 
■006- 
032 
020 
020 
025 --K- 



125 
50 



K 



27 

-■8- 

20 
-6- 

5 
-1-1- 

1 
13 

6 
-0- 

4 
_2-- 

4 
-3- 



-ERROR -IF- NO -DIGITS 

ERROR IF MORE THAN 9 DIGITS 



JUMP -IF ZERO.--- - — - 

SCALE COEFFICIENT TO NORMALIZE 



050-T — 0-- 



LEAVES VALUE IN ACC AS WELL AS 03 
-R ECORO-POSI-T I ON -OF- DEC -P-T- 



=021E060 
--=02-l-£-S?O- 

=021E080 
--» 021-E-G9O-- 

*C21E1Q0 
-»0-2-l-E-M-0- 

-021E120 
-=*e2-i-E-130-- 

=021E140 
--92-]rE-150- 

«021E160 
~02-l-£-l-70- 

"021E180 
-=0-2-tei9O-- 

=021£200 
-=02-l£-2-10-- 

=021E220 

=»021£240 
_a02-l-£-250- 

=021E25S 
-*Q24~£260-- 

*021E270 
-a021-B2-80- 

=021£290 
-S02-1-E-30O- 

»021E310 
-*02-l-£-320-- 

*02l£330 
-«0£1E~34G- 

=021E350 



* 



-22- 

2 



a 



a 



Jt.__5_.i 



•» 
.-«-_. 



* 



124 

0-24- 

020 

-0-2-0- 

020 

-1-24- 

001 

■0-20- 

120 

-0-20- 

020 

-020- 

020 

•GG-1" 

001 

-0^1- 

124 

-002- 

124 

-002- 

020 

-0-52- 

020 

■0-7-1- 

071 

-02-G- 

020 

020- 

050 

00-1- 

050 

-020- 

020 

0-1-0- 

020 

■0-20- 

020 



K 6 
■K— 2 

S 
*--9-l 

S 
■K— 29- 

# 2 

•$ — 


$-— 
p 1 
-s — o- 
p 1 

*— 8 

• 3 
-k — 7 
A 27 
•♦ — 7- 
A 68 
*--iQ- 
P 2 
* — 4- 



— 2-3- 

3 
P---1 

£ 

T 
'E- — 2- 
Q 3 
-S---0 
S 
#--2-0 
S 
.p-_l„ 

S 



■» 
— — #■ 

010 s 
-050-*- 

010 « 
-0-50-0- 

010 « 
-025-K- 

010 s 
-0-1-0-=- 

050 Q 
-0-1-G--- 

050 Q 

-oro-«- 

071 

-6-7-1— - 
071 
0-20 -P- 
025 A 

-0-20-P- 
025 A 

- 0-1-0 -E- 
024 K 
0-1-0- S- 
050 T 

-001-*- 
001 * 

■0-52-*- 
010 « 
002— ^ 
023 T 

-01-0 E- 

010 * 
0-10 -«- 

010 » 



3 
--4 »- 


-91— 

14 
—5— 

3 
-29— 

1 
-1-2— 

3 
-1-4- 

5 

— 2— 

23 
— 3— 

1 
_-!-- 

27 

— 1— 
68 
— 6 — 

2 

--1-- 



-28- 

13 

--&-- 
12 
-6— 


— 8— 
29 

-20-- 
3 



EVALUATE EXPRESSION 



-S TACK- -E-X-I-T- - 1 N- OP ER ATORS- 
ELIMINATE SPACES 



-ADVANCE 

-TO- ^8" - 1 F" L-E FT- GROUPER ■ 
TO #3 IF LETTER 
-TO-*7-If-DfGi-T- 



-TO-*7— IF-OE'C-PT- 



-T0- -?!-10 - IF -CC-»- - «- S *- -ELSE- MALFORMED' 



-TO-*28-IF-SUBSCRIPT- 
-S I MP tE - VARIABLE- 



-CONVERT- NUMBER- 



010 * 
050-Q- 
010 = 



14 

-5- 

2 



STACK LEFT GROUPER 



J_021£36D_ 

=021E370 
_=lQ2.1£38Q- 

=021E390 
__-Q.21E4G0.. 

=021E410 
_«C2__EA2_L 

=021E430 
__Q2JLE.440_ 

*02lE450 
___Q_-1J___6.CL 

=»Q21E470 
_=_Q2l£4aQ_ 

=G21E49Q 
_=_Q2JjE3_QQ_ 

=02l£505 
JL0J?.l.E31iL 



=021£S15 
Jt.Q21.E3.2Q__. 
*G21ES25 
J_Q2jL£3_30__. 
-021E535 
_____U£5_t___ 
*021E545 
_=Q2_1E5S0_ 
=6YlE555 
_=_Q21E56G_ 
-021E565 
-021E57Q 



=G21E575 

-021E580 
* 02 IE 58 5 

J_Q2l£3__Q_ 

=021E595 

___Q__1£6CKL 



»021E605 
-*_Q2X£j6.10_ 

=021E615 
._-.Q21£.62D_ 

=Q21E625 
___.021E63.Q_ 

=021E635 
._~Q2_L__64Q_ 

"Q21E645 
.__0__1__j65->- 

=021E655 
____Q2__E66_)_ 

-Q21E665 
.J_0__l£67-L 

=021E6?5 
.J_Q21£68Q_ 

*021E685 
___-Q21£6.9-G- 

*021E695 
._~02O£70Q_ 

*02I£7G5 
._«_02iE710_ 

=021E715 
_=Q21E_72G~ 



.0-10 

* 10 020 
020 

002 
032 

* 11 004 
-*__12-_>__.Q 

010 
._t._13-QZ0 

* 14 020 
025. 

* 15 020 
02Q. 

020 
Q2_Q. 

020 
025- 

020 
.025. 

010 
.*__L6_02ja. 

* 17 020 
025.. 

020 

"020" 
fi2___ 

020 
0.2.0. 

010 

.*.jl. .___&_ 

025 

_»___ 

020 

asa 



._*_ 
p- 

N 
P 
K_ 

* 

S_ 

P 

X- 

s 
p- 

s 



010 
-025 
004 
014 
032 
-06-4. 



-N- 

P 

«_ 

N 
_Q. 

_s. 
K 



.Jt 

A 

_«■ 



Q 

A 

_E. 



* 19 020 
._-.-29_02£ 

* 20 020 
______j025 

020 
-025-. 

020 
0L5JQ. 

124 
XL02 

* 21 020 

02 a 



=021E722 



010 
it _2 3_I120 

025 
.__._24_.Q20 

056 
J__2.5-___2.a 

020 

xno 

# 26 020 
125- 

001 
—124- 

002 



--9 



--0 

11 

8 

v 
X4 
29 

--O-oaa 

1 124 

.31....C01-.E 

010 « 

__L_05a_Q 

010 » 

_s___ Q_oxa_= 

P 1 124 
-K_3 2-002 

P 1 124 
.A- 3-9 -002 

E 6 
-P___l.-05.2~* 

124 

_Q _J5__QG2- 

Q 5 124 
-A_3_9_Q.0_L 

S 010 = 
_S__J__Q1jO__» 

Q 3 050 Q 
J5 _______ Q_?_ 

* 17 
.0__3_12_4__A 

A 96 001 * 
-Q__j_._00.2--E 

Q 3 125 K 
.Q — 3-010-3. 

S 010 = 
. S___a_ 0-1-0- -a- 

P 1 124 K 
_K_ .3-0-001-*- 

Q 5 124 K 
..JC-3G...001-.*- 

P 1 124 K. 
-T— 0-020- -0- 

K 37 025 T 
._{■_ -24- 0-1-0- -S- 

$ 010 = 
..p. — 1_.0l5O-.Q_ 

* 22 

.Q— 5-124--K- 

K 30 001 * 

-O— 5-0-KX — 

* 25 010 3 

_s — a.- aiQ-~- 

$ 010 » 
-*-2-0 

5 001 E 
-K— -6-02-5- -K- 

* 30 020 P 
„K-_3 2-023- K- 

* 16 010 E 



12 
-1 


12 

7 
-3. 



CONVERT S 



24- 
31 
__6- 

14 
-3- 

1 
2X- 
32 
..16- 
59 
15-- 

1-7- - 

5 
.18- 
59 
_j__. 
15 
16- 

7 
.13- 



_ -FUNCTION 

-MUST-BE-LEF-T-6R0UPER-NE-X-T 



--STACK- -CHARACTER--. M-OPERAT-ORS- 

- -EVALUATE- EXPRESSION 



ERROR IF NOT COMMA OR RT GROUPER 
.XC- — -RT--GROUPER 



.96-- 

19 

_6-- 

12 
_1_ 

15 
—2- 

30 

23- 

30 
.21- 

37 

_.5-- 


— 1- 

14 
_5- 



J-ATCHEO- GROUPERS 

-AUX- MUST- BE- -EMP-T-Y - IF- -ABS- -V AL • - 



STACK OPERATOR 



30- 

26 

21- 

1 

15 



-_F4RE-0PERAT0R- 



-1- 

1 

■32- 
6 



- -0 2-1-E7-2 4- *- -3 - 

=021E726 

- - 3 - 021E730 *_ -27- 

*021E735 * 28 
_=G21E74Q — 

=021£745 
--*02XE750 

»021E755 
-_=02IE760 *--90- 

=021E770 * 91 
_=Q22E.GQQ+.- -»-ZZ- 

=022E010 
.."022EQ20 

=022E030 
_-»022£.Q40 

*022E050 # 1 
_=G22EG60 __ — 

«022E070 •» 2 

._aoaaeo8iL 

*022£090 
.^022-E-lOO- 

=C22EX10 
-02-2E-1-2G- 



20 

020 

oio 

020 
020 
024 
0-20- 

010 
000- 

010. 

050 

020 - 

020 

0-50- 

050 

020- 

020 

&2-Q- 

020 



Q — & 052 -*-2-7 
S 010 = 15 



=Q22£13G 
._3Q22-£140- 

=022E150 
-»G2-2-£-16G- 

*Q22£17G 
— *0 2-2E-1-8 G *— 9 0- 

=022£190 * 91 
-^Q2-2E-2G0- 

=023E000+ a 23 
--*92-3£QlG — - 

«023E020 
-o 023 £0 3 — 

-Q23E040 # 1 
--»S26E05O- 

«023E060 
-=e^3E-07O- 

*023E080 
-»0-2-3E090 

=023E100 
-*O2-3El-l-0- 

=023E120 
-=02-3£13-0- 

=023E140 

-B-02-3E-1-50 



020 
020-$ 



-0-2G- 

4-2G- 
020 



S 

PI 

* 90 
S---0- 

* IS 
=--26 

s 

* 90 
A- -31 
S 
P--12 

* 90 
5—0 
$ 
$---0- 

S 

H---2- 

$ 

$_o- 

Q 1 
S---0- 

* 91 

0- 

* 90 



010 = 14 
124 K 17 
050 Q 5 
010-= — 1- 



POP Q5 

EXIT 

SUBSCRIPT 



440 



010 
010 
050 
024 
0-10 
010 
■050 
010 
0-1-0 
010 



010 
•010- 

0*0- 

Q-5Q-- 
010 



$ 1 
S---1-- 
K 3 
*__.2- 

5 1 
P - 12- 

* 61 
«-62- 

» 64 
H— -2- 

* 62 

=-64- 
Q 1 
a-64- 

* 91 
P---G- 
s 25 



PRIVATE WORKING CELL 
-TYPE TIME-LINE- (ENTER-RT SUPPRESSES EJ} 



TIME 

-SPAC-&- 
DATE 



SPACE 
-INI-T-I-AtrS 

-S I -X--CR ♦ 5- -ANB- €0M - 



*023E16Q 
. _» 023617-0- — . 

*G23E18G 
-«023El-90— - 

=023E200 
— *O23E-2-10 

=023E22Q 
-*0-2-3E2-30--- 

*023E240 
--a024E-000'K- 

»024E010 
.„s024E020— 

=024E030 






# — 9. 

* 50 
~*-5-l- 

* 52 
-.=.-24- 



027*0561 
■0-25*2000 

010 S 
■-0-24-K— 2 

120 
-020-3 — 

020 Q 3 
-0-20 -S— 

020 P 1 

-0-25- K- -3 3 

020 P 1 
-020-S — 

020 £ 
-O2-0--K--51 

020 Q 3 

-o-ao-s— o 

124 * 52 
-001-*— 2- 
020 K 4 
-020-P---1 
025 A109 
-0-2-0- 5-— 
020 * 50 
-0-10- 



-RES-ET-ti-fHr -COUNTER 

EXIT VIA-25 TO OUTPUT LINE FROM S 
-L-I-NK : 



»342»7056 

•eoaro&oo-f- 



e-5-2- 

050 

-010- 

050 

o-i-o- - 

124 

ooi- 

050 
■010- 
010 
050- 
050 
0-1-0- 
025 
010- 
050 
1-24- 
001 
0-10- 
010 



■#-- --9-- 

* 50 
«-21" 

* 51 
3-1-3- 
K 33 
E---6- 

* 52 
■* — 1- 
- 21 
H-21- 
H 22 
«— 70- 
.< 1 
* — 3- 

* 50 
A109- 

* 1 
=--1-3- 
S 1 



EVALUATE CONDITION (RESULT + OR -) 



SET SIGNAL + 
-E VALUAT £~£XPR ES'STON" 
SAVE IT 

-POP- -OPERAND 



-CC- MUST" BE -RELAT I ON" 
SAVE IT 
-STEP- ONE 



EVALUATE EXPRESSION 



JUMP IF NOT AT PERIOD 
-POP-OPERAND 



0-1-0-S---0 

024 K 2 052 * 9 

.020-$— 010 ■■■«-■ 14- 

020 S 010 = 27 



. EX . IT 

SIGNAL 

-LEADING- -TERM 

RELATION 

CONVERT- FUNCTION - TO OPERATOR- 



_*G2_4EQ4D IL5-0-T---0-0-04-K---2- 

«024E0S0 020 »■ 50 052 * I 
_s024E060 *___i_O2-0- — •— .-001--E-- 6 

«024E070 025 T 001 * 2 
_=lQ24£Q8Q ...025. -K- 4 005- «• 3 - - --■■ ----- 

*024E090 * 2 020 * 1 064 » 1 
_=02A£10O„ #_ _„3__0jLQ_#--_l-02a-*--4- - 

=*024EU0 124 K 6 025 * 50 

_~D_2A£120_ ii2.4_*__5.1-050-Q--5 STACK -FUNCTION- ^S-OPERA-T-I-0N--Ifi-QK--AND-AC~ 

*Q24E130 * 9 010 

_=0M£1AQ *_&Q » fiQ , . , __ . .... 

=024E1S0 * 51 F 440 
Jz 024_L:160_ *_ _60_ 0_0_Q j G0J12 j 3 2i».222A SORT- -{-ORDERED- -S Af4E- -AS -F-f-S) 

=024£170 0O0»GQOO*O14*17O7 LOG 
_-_Q24E_l80 0_OQ» 030.0 *Q.Q5-*3Q£Q- EXP 

*024E190 OOOtOOOO, 023.1116 SIN 
J_*O2_iE2.0J2 .0.0.0.1.0000.003 .1723 COS - -.. 

=024E210 000,0000*000*1120 IP 
J-Q24E220 QSLQ.%Q9JMltQ0n.*.Q6ZCL _FP 

SQ24E230 000.0000*023*0630 SFX 
J_.Q24E.240 O0_Qi0O_Q_Qs0.0iUQ3.a6- XE 

*024E250 000*0000*023.0716 SGN 

g_024E26Q OOA».0000_*AQI..*1.520 .AMP. ...... ._. __ _ _ 

O024E270 000*0000*015*0130 MAX 
J_.Q24_E_.280 0_P_0i90_0.G_»Qi5_tlllA _MIN 

*024£290 100,0000*000*0000* 
_lQ?S_EOQO+_ _=__25_0_l_0_S___0__0ia_-___J _QUTP-UT-LJiNE-ER0K-S--&LQCK-T-Q-5T-R 

*025E010 024 K 2 052 P 14 SET EXIT IN P14 (INITIAL ENTRY) 

gQ25E0g0 __* L_fi2XL_S P_CL1Q_2 8 ASS.J.GN_BU£EER_-CREENT.RY-.POINT-) - 

■025E030 001 * 3 140 S 1 LOAD BUFFER IF ASSIGNED 
_=_Q25_E040 02_0__B_l£_Q2A_U__.l 

*Q25£050 052 * 2 020 H 13 
J=_Q25E.0_60 _?__._2_OZ5_rr~_-_G0.1_J___.5 _£XI.T-V-U-P-14-IF-.-CAN-«-T-TL--Y-E-T - 

=025E070 025 K 1 002 * 5 EXIT VIA P14 IF CAN'T TL YET 
.f025E080 ___^2.Q_fl.],.2_Ji2i-K-.2i. OK_IQ_TRANSMLT_ . -_ .—_. 

=025EQ90 142 K 24 010 * 5 EXIT VIA P14 
J*_025E1Q0 *___3_P_2Jl_H_JL0_05X_*___4_ 

SQ25E110 020 5 010 - 47 CHOK ED-CHANGE STATE TO H4 

*025EI20 ___ L J_4______L_1_4_ 

=025E130 010 * 6 

-fiOZ 5£ X60 ft — 4-020-3 — 0~0l0-~«-47- Q-FOR-BUFF£R-AND-PREF£RR€D-PR0C£S5THG- - 

=025E15C L 11 L 11 
_=Q25£I55 __J_.__6-0.20-S— 0-0-1^)-=— 53- -KICK- -GUT-PROGRAM 

=025E160 010 X 1 EXIT TO EXECUTIVE 
_=.025E170 it- — 5- -02-Q - P-- -Q-Q2-4- 1 — -t 

«Q25£18G 050 P 025 J 2 

-S-OZ&E.1-9-0 0-01-P— 14-020-P— 14- 



=025E200 025 K 2 010 * 22* EXIT VIA*22 IF NEW PAGE NEEDED 
-S027-E00O*. js.-27-XnO-S—Q -ACCUMUL ATE- -LETTER- COOES- <6- MAK-)-- 

*G27E010 024 K 2 052 * 9 RESULT IN ACC WITH SCAN ADVANCED 
--02-7-E-02G -1-20 0-050 -H— 1-9- 

=027E030 * 1 020 P 1 124 K 34 
-=-03-?£04& ■■ e-25-K— 34-005-*— 3 ■ ■ 

*027£050 020 H 19 004 PI 
-«G2-7-E-Q60- — — — -0-7-7 6-0-50 -H--1-9 

*027E070 020 P 2 024 K 3 

._aQ2_7goaO i3 5 4_p___ a _ 52._#___ 2 

-027E090 * 2 020 050 P 1 

-=0276-100 — 020--H-19-025-tC-l-2 — 



*027E110 * 3 001 * 1 020 H 19 LEAVE RESULT IN ACC AND H19 



=028EQQG+ = 28 
-»02-8&OlO J - 

«028E020 
— »028E030 

*Q28E040 * 1 
— »028EG50 

«028E06G 
-"•Q-2-8E070 

=028£0S0 * 
— «O2-6EO90 -*■ 

»O23£100 # 
--=029£-0O0+-- 

"029EG10 

=029E030 

— ~O29E040 — 
«029E050 

--» ©2-9eo6o--- 

-029EO7O 
- 3 »029e080— 

-029E090 
— =029E-t00 — 



2 
— 3- 

9 



VTO~ 

010 

024" 

060 

050- 

023 
0-20- 

052 
004- 
020 
"060- 
010 



S 
K"-2 
T 
T 





-0 

3 





=030EOOO+ 

-~63-0£Oio-- 

•030E015 

--=031>e020-- 

»030E030 
-^030 £04-0— 

=030E050 
"W03-OEO60— 

=030E070 
■-=D3UE08O~ 

=030E090 

— itsofhkt- 

*030E110 

"~=O3TF/O00~+~ 

-031E010 
■-S03TE02TT- 

-G31E03Q 
--O32E'OO0— 

=032E010 
-=ty32EQ2Xr- 

*G32£030 
-S-&32E64-0— 

*032E050 
--032E060— 

-032E070 
-«O*2f-08-O— 

«032E090 
-«8-32£ieO— 

*032E110 
-S-032E1-20— 

*032E130 
-»t»2C14tr- 

«032E150 

■-«o*2ei60— 

=032E170 

-=032Et80— 
*032E190 



~- -29- 0-1-0- 
024 

OfrO" 

050 

-*— 1-023" 
020 

tj-s-e- 

* 2 050 
tr— 3-03-6 _ 

010 
"# — 9~0T0" 
= 30 010 
-024 ' 

023 

vza- 

025 
"1-OT0- 

006 
-2--0T4" 

024 
■3"T2"5 _ 
9 010 



s---o- 

K 2 
T— 0- 
T 
T — 0" 
T 
*— 3" 
Q 
T---0" 
# 1 



052 '-* "9 
124 K 6 
010 ■$■ 1 
002 * 9 
052-*---2- 
070 21 
50-Q-- 0- 
052 T 

oio-*--r 



052 * 9 
010 S 1 

056 * 2 
■OW-Q--0" 
020 

O^tf ------- 



ERASE LEFT LINKED LIST A/C MQ 



ERASE -R 1 GHT " LINKED" LTS T" "ATX ~ MOT 





~r 

6 
"4" 



-?r 






■» 90 

E — r 

* 2 
*— 3" 

P 5 
K~"~4" 



006 * 3 
0X15" "*""T" 
005 * 2 

■Q-24-*-9T" 
120 
0-20' - P— 4" 
024 P 6 

iraiT'T" 



CHECK RANGE AND [PACK RESULT 
CHK FOR ZERO 



-* 



9"0+ 

* 91 + 

=— grTOT 
024 
IT20- 
020 

-=-32-0 10" 

024 

TT20- 

020 
-050" 

* 1 020 

023~ 

023 
020- 

020 
o-or 

002 

025" 

* 2 020 

trso- 

020 

-O5-0- 

020 
—050" 

* 3 020 



100 
99 



8 

8» 



$"""0" 
K 2 
"$~"~0" 

* 1 

'S — 0"" 
K 2 

$—q- 

K 12 
P---5" 
S 
■P— 6~ 

Q 3 

$---©- 

P 4 
*— 2" 

* 3 
.p — g - 

P 4 
P---7- 

P 5 
p— 8" 
P 6 
P— 9" 

P 5 



052 * 9 
STO'-sryr 

010 » 13 



052 

0T0- 

025 

oio- 

010 

-002~" 

002 

o-ro- 

025 

0-25- 

020 

002" 

004 

t)T5"0 

004 

cetr 

004 

060" 

024 



"A DOT 

"0NPA"CK~2N _ D"0PEl?ANb"" 
POP Q3 AND MERGE WITH =32 
"S UBTR ACT 



* 9 

=-Tl" 
P 5 

s--r 

= 13 

'■•»■— 9 - 

* 8 

■*-rr 

P "f 

■ K — j-- 

P 6 
-» — 3~ 

P 7 
p— -4- 

P 8 

■ p— g.- 

P 9 
p_ 6 _ 

P 8 



"OWPffCK-TND'OFERAND"" 

INVERT SIGN OF 2ND OPERAND 



POP Q3 

D0Nr-TF~2ND-~0PERAND"TS--ZER0 

PACK UP IF 1ST OPERAND IS ZERO 
UNPATCK-XST-OPERAND" 



-TO" -V2 ~ 1 r 2ND" 5FX " TS "GREATER 

TO IF 1ST SFX IS GREATER 

T0 -rF-rST-CF~rS""GREATER~OR~£QOAi;* 

INTERCHANGE OPERANDS 



-* 032E-2GO 

=0325210 
-=G32E220 *-• 

*032£230 
— O32E240-- - 

»032E250 
•-032E260 *.- -5-004 — 

«G32E270 020 P 

-=032E280- 0-36 -P- 

»G32E290 050 T 
--O-32E-340- # 10-023 T 

=032E350 023 T 

-«G32E-360 050 -Q-- L 3- 0-10 

=032E370 * 11 020 T 1 025 
-*032-£-380 00-2 

-032E390 032 



r 0-?-l 9-0O2-- 

H>21 p 9 050 

-020 P - 4 025 

025 * 90 002 

024 ■* 90 072' 

024 J 11 032 

060 

077 
044 
060 

oor- 

001 



9 
6 
2 

!■ 
2 



-»O32E40G~ 



-060-T- 

036 T 



*- -1-3 -004 

T 2 044 

3-004- 

1 020 



-#- 

P 

■P 

ft 

* 
■T- 

T 
T 
•#■ 

«■ 

# 

-N- 

T 

N 

P 

-P- 

N- 

P 
■P- 

N 

-K- 

P 



*032£410 
- _a 032-E42 *. -t2- 025 - K- -14 - 050 - 

»032E430 060 T 3 025 

-=032E440 002 -*-l-S -0-3-2-- 

=*032E450 020 P 4 010 
-s.Q.32 E45 2— *^.i,3_060-T- 3- - 2 5 - 

=G32E454 001 * 14 020 

._=032£456 024 -K- -1-4 -050- - 

"032E4S6 120 044 

-J3.0-32-EA60 #- -1-4- 060 -T-- -3-024- - 

»032E465 072 1 050 

-S-0-32E4-7-0 * 8-02-0-$ — 0-010--= 

*032£480 * 9 010 

.J9L032-E490 it-js-o^---. -1-1--- 

=032E500 » 91+ 200000000 
.-3.G32-E-5-1G ^--9-2-+— 199^^-999-99--- 

-O33E0OO+ = 33 010 $ 
_jl0.33-E43.1-O — 024-K — 2-052—*- 

*033E02Q 020 $ 010 - 

._==Q33-£413G 0-2-0- -$---0-0-1-0--= 

=033E040 023 P 6 001 * 

._sg.03M4).50 T ___o.5q._q___3_o^.o--# 

=033E060 * 1 023 Q 3 002 * 
_s_O3.aE-O.7-0 02-0-3 — 0-0-10-=- 

-033EQ8Q 020 N 9 070 



-4— 

9 
7 

a 

10 

5 

- 0- 

1 

--0- 

1 
11 

11 

--9--- 

91 



4 

-•A— 

91 

--1--- 
12 
.92— 

4 
-4— 

1 
— 1— 

6 
•30— 



-TO- * 4 - 1 F" -SIGNS- "ARE" "AC I K.E 

ELSE COMPLEMENT CF OF SMALLER NUMBER 



TO *8 IF SFX DIFF AS BIG AS 11 



-SET- DEC I MAL --SHIFTER 

DEVE LOP- T W ICE- SUM" IN "MQ" 
SAVE PIECES 



-SET- -ZERO- RESULT- -AND" "EX I f 



SCALE UP ONE DIGIT 



-ADJUST-5FX 



SCALE UP AND GO TO *12 



-ROUND- 

AND SET CF OF RESULT 

-PACK-UP-RESUtT— " 

EXIT 



— a— 

39 
--39-r- 



MULTIPLY 



_= Q33£O90 0O4-P---9-0-36- 

«033E100 050 T 025 

-»03-3-£-l-!0 0-1--*- --3 -0-25- - 

=033E120 002 * 2 021 

~«O-33£-I-30 ■ — 064-T— 1-001- 

*033E140 * 2 020 T 044 



--~033£-15Q-- 

=033E160 
■-» 93-3E-1-70-- 

=033E180 
--0-33EM-90- 

*033E200 
-=»e3-3E-220- 

=033E220 
"»e3_€-Z30- 

«Q33E240 
-=-033£-250~ 

"033EZ60 



# 



-■#-- 



— 06-0- P-- -6 -0-20- 
024 P 7 024 

- -0-50- P-- -4-0-10- 
3 021 * 92 064 

004-T 1-001" 

020 T 010 

- 4- -0-2-0- T— -0-0 25" 
5 044 N 8 060 

— 0-20-P— -4 024 
050 P 4 010 

•6-020-P — 5-024- 
124 K 12 050 



-P- 

5 
■p- 

P 



— 9— 
11 
-13-- 

1 
— 9— 

9 
-1-1— 

1 
— 6— 
90 

— 0— 
91 
— 3— 

9 
--4-- 
14 
— 6r- 

1 
— 4— 

5 

-o- 

6 
-7 

1 



"»e3-3t270— 

=033£280 
--033E290--- 
"033E300 

-=033E310 

=034E0OO+ - 34 0X0 s 
--* Q34E-G10 0-24-K- 

=034E02G 023 Q 

--=G34£G30 0-2G-5- 



G2 0-S"- -0-010- -="30- 



16 



=Q34£040 

-=-0-34EG50- 

=034EG60 
-— Q34E07G- 

=G34EG8G 
- — 034EG90- 

*034E100 
-*034E-1-K>- 

«034E120 
--» Q34E-130-- 

S3 Q34£140 
--» G34-E150— 

=G34E160 
-=034E-l-70— 

=034E180 
■-»834-€-t90-- 

=034E200 

--»83^&eooo-+ r 

=03SE010 
-=O35EO20— 

-035E030 
-~03-5-E-G40— 

=035E070 

■-^e3-5-E-ostr- 

=035E090 

"obteiiio — — 

*Q35E110 
"~="03"5EX20 

«035E13Q 
'-*03"5ETW 

=035E15G 

-a-cyjsrrs-o — 

*035E172 
-=6-35-E-18-0- it 

*035E190 
-*©3^E20t)- 

=035E210 

-»035€22 — 

=035E230 



* 9 010 

•S--9Q+ 181898 

* 91+517415400576 
*~92+" 450000000 



-2 -05-2- - 
3 002 

-0 -o-i-o- - 

020 S 010 
-Q23---Q — 3-002 

020 S 010 
-O-20-N---8-050-- 

020 P 4 025 

- 0-50- P-- -4 -0-20- 
025 P 9 002 

-02Q-N — 9-050- 
020 P 4 025 

- --0-5G-P-- -4-010- 
1 020 P 9 072 

---00-4-P---6-036-- 
044 P 9 060 

020-P — 5-024-- 

124 K 12 050 

— -020-S— Q-OTO" 

9 do 



# ........ 



39 
39, 

-9- 

3 
-1-1- - 

13 
9 — 
11 



DIVIDE 



--0-- 

7 
-fr- 

1 

-o- 

14 



1 
— 0" 

6 
— 8" 

5 
-30- 



-^-33-tn-trr 

024 K 

120 



-q----- 

2 052 

™ 0'50" 

050 * 82 050 

—--■- XS231Q 1 - -3 iotnr 

* 6 020 N"~'8' 024 
T "1 6_" 0-50 - CT ~ "3 ~ 010" 

1 \32Q~~~Q 

20 P 
(jG20 P 



Or 



9 

■ar 

83 



* 



3^050 

"4~0'50" 
'5"0Tff- 
6 050 

023 Q ~3nJ0T~ 



# 



T 
81 

J?) 



11 

"86 
"87 
88 
"Eft 



) 



T~S;"7f*8 

"SET~FCA"GS~TO~ZERO' """" ~"~ 

TJOES""B»DVTF"YE'S 

IF N0» RESULT IS ONE» PLUS SIGN 

- rN~Fi:AG"Y 

STORE 8 __ ____ 

TJN'PACK 8 ~" """ "" ~ 

STORE PARTS IN #86»*87»*88 



!. 



O'2'3~"»'""87"-0O'2~' 

;v~'.-.:.0lQ^._E 23 

[2^-020 - 'tir-'-jrxtso- *~ -8-4- 

j 020~^~-0-OTCT 

— -020-p— 4-o-s-a- 

020 P 5 050 



"POP "8 

IF A=0 AND 8 IS POSITIVE* RESULT IS 
"ZERO; I F"~BTS~N EG A T I'VE ', ER ROR ", 



-=0^5ir240- 

»035E250 
-=03-5E260- 

=035E270 
-W035E280 

=*035E290 
-=S-35-E30G- 

a 035E310 
-=035E32G- 

-035E330 
-=035E340 

«035E350 



"1—02 QZ P — 6-0 50" 
^020 * 85 050 



11 
-89 
90 

12X 



-STORE-A 

UNPACK A 
-STORE-PARTS-I-N-*89T^90V*91 



■•»- 



" -rQ20 - S---Q-QTQ " 

U D"23~~Q 3~00T 

-—iyZ3-*-?Q"0QT- 

020 K 12 050 
-3""OT4"-*~"-4t-0 2 0" 
072 31 050 

— •02Q-T—&-CT25' 

005 * 4} 024 

— ■Q56-*r—5\.l-20 

5 004 * 88 044 

—0-60-*-8 0-071" 39" 

006 « 4 020 * 90 



3 
"2T- 
82 

"86" 

-tr- 
11 



-FlNCrTP-OF-B 

TRANSFER IF Q IS AN INTEGER 
"ERROR-ir-A-IS-TfEGATrVE 

FLAG 2 IS 2#<-9) FOR B FRACTIONAL 



IF SF8 IS LESS THAN 9 COMPUTE AND 

-STORE-TRUE-VArUE-OT r -INTE"GRAL-F 

IN *80 



TEST UNITS POSITION FOR 6 ODD OR 

EVEN — CSHTFT-TO-STGN' BIT) 

IF 8 IS ODD STORE SIGN OF A 



- — 635E360- 

*035E370 
--"035E380-- 

-035E390 
-=G35E400- 

=035£410 
-«035£420- 

=035£430 
--*035E440 

-035E450 
--C35E460 

=035E470 
-S03-5E480- 

=035E490 
-a03-5E-502 

5 =035£S04 
--=03 5E 5-30 

=Q35E540 
--aO 355-550 

=035E560 
--H.035&5-70- 

-035E580 
-K.O35E-3-90 

=035E60Q 
-S.035E6.1Q 

=035E620 
._=035-E-6-30 

-035E6S0 
-aa35E6-90. 




#- 



■81 [0-20 
12 050 * 
--9 -050 T 

1 002 * 
87 50 * 
85 125 K 
■8-5-0-23 ■-* 

7 020 # 
93 050 T 
84 050 Q 

0-001 * 



010 F 



84--- 
64 

1 ---" 

6 
83 
12 

82- 
85 

--o — 

3 

8 



r 8 : 3-002 ■-*- 
1 050 * 
87-020 Q- 
84 010 * 

JO "O 10 a 

- -5^024--* - 
12 025 I 
-26 -020- -P- 
36 072 

-3-006-*- 



010 = 



02-0-a- 
050 Q 



-8-5-024--*- 
3JL1Q- S. 



-9 
80 
-3— 

29 

ILl 

"8-7— 

1 

31 



-IN-FL-AG-r 

STORE ABSOLUTE VALUE OF A 
"IF- IT EQUALS" ONEii- THEN" RESUU 

IS PLUS OR MINUS ONE 

FLAG 3 EQUALS "SIGN "'OF' 8 

STORE ABSOLUTE VALUE OF B 
-IF- FLAG- 2 IS - ZERO »" 8" "I S" AN - 1 NTE'GER" 

TRANSFER 



STORE A IN Q3» THEN TEST 

-IF 8- EQUALS 172 — - 

COMPUTE SQUARE ROOT OF A 

IF- FLAG" 3 "IS" ZERO*" EXIT 

TRANSFER TO INTEGER ARITHMETIC TO 
COMPUTE -RECIPROCAL" OF -SQUARE" ROOT" 



■■COMPOTE-E* ( B« LOG {A Jr FOR" B" " 

FRACTIONAL OR INTEGER GREATER 



THAN 9 



TEST SIGN FOR 3,L0G(A), IF NEGATIVE 

-TES-T-SF-FDR-RESULT 

IF SF GREATER THAN 2» E* C-B.LOG (A ) )=0 



■l=z&2&zS>==JL&±az^: 



=G35E7GQ 
._=t035E-710— 

=035E720 
.jtO3S£.7-30— 

=035E74Q 
_s.0a&£-7-45 — 

=035E750 
._=_035£-75§— 

=035E760 
.jt035E.7-65— 

=035E770 
-S.G.3S£7-71 



-*_^0_0 



020 $ 



3 2-0-0- 
020 * 
• 0-2-5- -J- 
022 * 

0-25--K 
020 * 
-07-1 — 



* 23 



* 18 



* 9 
— *--t4- 



=035E772 
- AO 35-E-77 3 *--2-5 

=035E775 * 24 
.o:.03*E-78a— — 

=035E785 
-=035E-790- 

=G35E795 
-^935E-8ee- 

=035E81G 
--03-5-E-81-2 

»035E814 
-«035E81"6 #~29- 

«035E818 
-»035E-820 1 

=035E822 
-S035E824 

=035E826 C 
-~ 3 5 £82 8~ #-27 

=035ES30 



002 E 

-oi-o-#- 

023 * 

-061-tt- 

032 * 

-00-1-*- 

002 E 

-02-4-1- 

060 P 

05O-P- 

050 P 

oio ~ 

-0-20--*- 

020 K 
-OO-Jr-* 

025 * 
-020-N 

050 * 



.J?,_-QJ10_F_ 
— 3 — 0-1-4 — *- 
91 025 N 
--1--0G2--*- 

86 023 K. 
-1-4-005--*- 

87 024 I 
-4-9-052—*- 

1 120 
-1-6-004--*- 
87 002 # 
£0-004--*- 
89 076 
-2-5-025-1- 

1 oio * 

- -1-0 05--*- 
4 020 * 
—5-020"*- 
.6 010 * 

::::::A QlO-* 1 



8-7— 



--f4ULT-TPL-Y-B-»L-0S-(-A-r 

2 ) COMPUTE E# (B(LOG<A)J 
-6 TRANSFER-TO-ADD-FL-AG-1 

8 B IS AN INTEGER. TEST A 

-1-4- -I-F - A- -IS - NOT- -A - POWER" OP " iOv "T RANSF ER" ' 

14 IF ABSOLUTE VALUE OF SFB IS 

1-5 GREA-T£R-THA-N-eNe*— TE-S-T-S-TG-N-FOR- 

1 SF FOR RESULT* + IS OVERFLOW, 
-89 I-S-UNDERFLOW-— 



80-- 

18 
60— 


— 1 — 
24 

2-3-- 
81 

9-1--- 
17 
't&Zj"'" 



ATTACH SIGN TO B 

B*-SFA- 

SHIFT SIGN BIT 

-TEST-FOR-N0N-2ERO-8-I-T-l-N-ACCUMUtAT0R- 
(IS SF MAGNITUDE GREATER THAN 511) 



3SOE 
020 * 
2 3rr»- 

I02O s 

-020-Q- 
020 * 



-a^-oso-Q- 

14 025 * 
- -8 -0-20--*- 
94 002 * 
■-8-0S0-Q- 

S8JU0 S 



84 050 Q 
•a-7-002"*- 

oi<r~s" 

80 072 



06 

■60— 
8 

-\ 



' PACK' ■ — - " - - - 

EXIT 

SET" 03 -EQUAL-TO--ABSOL-UTE- VALUE- OF" 'A~~ 
IF B IS GREATER THAN 29, TRANSFER TO 
COMPUTE - E* ("B * LOG" t AT) 

-rwin-Airrze-pR0DDCT-AND-sET-Q3ai~" ~ 1 



3 
27 

; 91 

1 



-PUSH-- 

Q3 » A 



IF B NEGATIVE, COMPUTE 1/A 

STORE MULTIPLIER " " " - - — 

TEST SUCCESSIVE DIGITS OF B» IF ONE 



— •-(- 



;t 



-— 035^832— " 

=035E834 
--=6356836 

=035E836 
-=035£840 

<=033E842 

-=G35E-844 

=035E846 
-=G35E-848---- 

=035E850 
— 035E8-5 2 — 

-035E870 * 80 
-=Q3-5E-875 *--&!- 

=035E880 « 82 

--=»■ 035E-885 *--8-3- 

=>035£890 * 84 

-=G35£895 #-85- 

-035E9OO *t 86 

-— Q35E-985 *-$7- 

"035E910 * 88 

■-»635-E-915 *--a9" 

=035E920 * 90 
-*0 3 5 £92 5 #-9i- 

*035E935 # 93 
-- © 3 5E-940- - - "-*■ -94" 

«036EGO0+ "" ~~ S~T5" 

-»e-36-E-oio 

=G36E02Q 

-=036 £ 3 * — r 

W.03.6E040 

— Q36£05O 

»036E060 
-~03l6E"07tr vro- 

= 036E080 * 11 

= (T3I£W0 # IT 

=036E100 * 13 

' S OBBTI 1X3" TTV 

-036E120 * 2 

"«D3"^E'I3T) T if — 3" 

*036E140 
~ 036E 1"5 

-036E160 * 4 



.£02_Jt_28_ 
8-20 -S---0" 

020 * 88 

020 0"~3" 
*--28-O-£3-*-80 
_020 * 91. 
O20-S—Q- 

"PjOII ' 
r 010~#-2-7- 



Q 



06T 

Pio 

•Olio 1 
050 

•oroja 

050 "» 
002 * 
.050-0. 

010 -a 

oto~* 



3 
33 

~8W 
-20— 

-3 , 

-1-2 " J 

'JUT 



"MOLTTFC Y "CURRENT "PRODUCT BY ~ CURRENT" 
POWER OF A*N OR (l/A)*N 
"■POSIT *A«N 



MUL T I PLY 

IF - 8-=0 » - DONE * " O-THERy-rSE- 
COMPUTE NEXT POWER 
-f»OSH-A*N 

COMPUTE A*'(2N) 



077*6356»326»2400 
^j... 

~0T0-£ " 

"024rlt---2-052-»— T"" 

024 K 2 052 * 9 
"0 2 0-~~~--0 24~ *" 90"" 

052 * 10 124 K 5 
■■02-5-1— X" 050"" T~"TT- 

120 050 * 3 
-0X0 "----""" 

020 * 91 014 * 2 



B IF IT IS AN INTEGER 
■-FLAG--X 

FLAG 2 
--FtAG"3- 

A PACKED — THEN ABSOLUTE A PACKED 

-B-PACRED-— -THEN-ABSOUUTE-B-PACKED" 

SFX B 
"SIGN"B . 

COEF 8, REPLACED 8Y 10*8 IN * 29 
--SFJC7ST " 

SIGN A 

~COEF""AT~REPL~ACED~B'Y~A^N"IN *~27— 

1/2(10*8) 



CONVERT H20 INTEGER FOR OUTPUT FROM S 

— org-s--o"-orcr-=-36~ 

K N 
WHERr"K=OPrr0N~AND~NSNBR"-0F~D"IG'ITS 

K«l SKIP LEADING ZEROS 
---KV2'-SPA"CE"FUR"-LEADTNG""ZER0S 

Ks3 FORCE LEADING ZEROS 

R V4" FORCE " LFAD I NOV "SKIP" "T RAIL I NG "ZEROS" 



020 * 92 014 * 2 

020_#__ 6014 * 2 

TTZO * 94 0¥0"* 3" 

020 *■ 6 090 *■ 5 



-a©WrEtTO— - 
=036E180 

-=056-5190- — 

*036E200 
-*O36£2T0 

«036E220 
-=0-36-E23O---- 

=Q36E24Q 
-=0-36-E25O---- 

*036E260 
—Q36E-270 

*036£280 
-«036£290-~- 

«036E300 

-* esses 10-— 

=036E320 

-»o3?eooo+— 

»037E010 



020 T 024 J 11 

-056-# — 4-T2G 0" 

004 H 20 044 

■■oso-H"eo-os3-T— r 

002 » 5 020 * 6 
"0-50-*— -5-OtO -*-2tJ- 



-*"2 



* 22 



# 9 

♦ -90" 

* 91 
tt-92 

# 94 
-s-37- 



-004--A- 
004 A 

■O20 -P" 
050 P 

-060- p- 
020 T 

"050-T" 

010 — 

•«■- 

023 T 
023 T 

023 H 

■oro-s- 

024 K 



-48~0t0~ **~20- 
14 010 * 20 
12" 024- -R— S- 
12 056 * 21 
t%- 050 --«**- 
025 I 1 
"0-002-*— 3" 



EXIT 



TO 

001 * 22 

- -g-o-ot -*■-.--? - 

20 002 * 9» 

-0— — r 

2 052 * 9 



'SIMPLE-DIRECT-TESTS" 



- -=03-76020-- - 
-O37E030 

-*G3-7E04G- 
=Q37E050 

-«037E060- 
*038£000+ 



■ #■■ 



— -I -0*0-0— 9- 

020 $ 

0-20-P---1- 

124 A 109 

9-002 — 

38 010 S 



002-E---9- 
010 = 3 
01--E---6-- 
025 A109 
010 E 6* 



--S.03SE010 0-24 -K- 

=036E020 020 Q 

• -« 38E0 3 0- - - r — 020 - $ 

020 P 

025--K 

* 9 010 - 
-~- -39-0 1-0- s- 



*038E040 
-=O38E050— 

=038E060 
■AQ39EQ0Q-- 

*039E010 




2 
9 

1 
-1 9- 



052-^-9 
001 E 10 
0-1-0 -»- -3- 
124 K 19 
001- E ■ 6 



-E RROR - 1 F--Q9" SHOWS" INDIRECT 

ELIMINATE SPACES 
MALFORMED- "IF - NOT "NOW" "AT" PERIOD" 



SIMPLE-INDIRECT TESTS 



ERROR IF Q9 SHOWS DIRECT 

-ELIMINATE- -SPACES 

MALFORMED IF NOT NOW AT GOOD TERMINAL 



--0- 

024 K 2 
P---1 



— -C39-E-G20. 0-2-0 

=039E030 , 025 A 14 

„s.G39£040 — ft 1—020- P — -2- 

«039E050 052 * 2 

-_»Q39£-O60 #___2-Q2-G — — -■ 

=039E070 124 A 14 

__=Q39-£O80 00-2--*-— t- 

=039E090 * 9 002 

_= 040E 00.&+ s_4O_O-10-S — 0- 

«040E010 024 K 2 

__«Q4O£O-20 _____02-&-S---0-- 

,= 040E030 021 P 6 

-=_040£O-4O «___2-02-0--K--4-- 

=»040E050 * 1 021 P 5 
-3.0AQE040 ; — __020-P — 4- 

=040E070 025 # 90 

_jU)t40£O80 02-1— P---4- 

«040E090 024 * 91 
.^040E-1-00 12-0- -0-- 

=?040E110 * 3 044 

-=.04OE-1-2O 002— * — 2- 

-040E130 * 9 010 

--=lG40£-1-40 #--90+ 

=040E150 #91 N 8 
--» 04-l€<3-e8H =--4-l-0ii>-S---0- 

=041E010 024 K 2 

-»041E0-20 — 023-Q--3- 

=041E030 020 S 

-^•G4i-E-04e ---0-23--P---5-- 

*04lE05Q 020 P 4 

--»94i€666 -025 -K- "1-4- 

=041E07Q 020 N 8 

-8.041-E08G — — -^—2-025-^-14" 

S041E090 * 2 020 N 7 
-=*04i-E~l-eS 1-20 -0- 

ap41E110 044 T 

--*041-£-12O 002-E---4" 

=041E130 * 3 071 12 
-a-04t£-140- *— 9~01-0-----^ 



052 * 9 
- 124- -A- -14- 

001 E 6 
-0-24-K— 3— 

054 P 2 
-050--P — -1-- 

025 A 14 
-02O-P— 1~ 

010 E 6» 

052 * 9 
-0l0--=-M— 

001 » 1 
-0-10- -* — 9- 

001 * 9 
-001-® — 9— 

002 * 2 

-07-2 -10- 

052 * 3 
-004--P--6-- 
025 K 1 
-1-20 0— 



-VER-I-PY -SPACE - AND - ADVANC E~ 



MALFORMED IF NOT SPACE 



EXIT WITH NONSPACE NONTERMINAL IN ACC 
-P0S-I-TIVE-INT£GER~T£ST-0N~(Q3) 



EXIT + OR - A/C TEST 



052 * 9 
006-*— 3™ 

010 s 11 
001- -E— 4"- 
001 £ 4 
002*--! " 
014 * 2 
002-E--4- 
050 T 
004" -P — -6" 
025 K 1 
060-T— 0- 
05Q Q 3 



SUSSCRI PT "RANGE- "TEST "AN D" "REPL" TU3 J " 



3042E000+ 
— 042£"010— 

*042E020 
--^042£"030-- 

«042E040 
-<=O42£050- 

<=042EQ60 



42 010 S 
0-24--K— "2- 

020 S 
02"O"P-""4 

025 * 90 
-02-1-P— 4" 

024 # 91 



052*" 
010 * 

O0T"E- 
002 E 



LIMIT RANGE TEST ON CQ3) 



"9" 
11 
"T 
7 



072"" — 10 
052 * 1 



-=04-2E07G 

=042£080 ♦ 
~*042-E090 *- 

=042£100 ♦ 
~«042E11O - ♦ 

=043E000+ = 
--=043E01G 

=043E020 

-043E030 *- 

«044E000+ « 
-» 044E010-— 

*044£O2G 
--&044&Q3Q *- 

*045£000+ » 
--3-04SE-O1G 

-045E02G 
-«.045E030— — 

S045E040 
--* G45EO50 

"045E06.0 
--» B45EG70 *- 

«Q4SE080 * 
-«*046r000+ s- 

a046E0l0 
--G46-EG20- 

«046EG30 * 
--»O4-7E060+- ~ 

=C47E010 
-*G 4-7 E 02 

-047E030 
-=e4-7EG4tr — 

*047E050 
-*O4-7£06G 

=047E070 * 
~»*Xr47EUB0r v 

-047E090 
"»0*7ETOtT 

=047E110 # 
-=f047£-t2&- 

=047£130 * 
-*0*7 EW8 «" 

aQ47E150 * 



1-20 

1 044 

--9 -001- 

90+ 

91 N 8 

43 010 S 
- — 0-24--K- -2 

020 S 
--9 002 — 

44 010 $ 
- 024- -R 2 

020 $ 
--9 -00-2 

45 010 S 
0-24 -K— -2 

023 Q 3 
020-0 

001 E 
— -GO-t-E 



004--p--"6" 

025 K 1 

010 E 7 

9 8 



■052-*— 9-- 

010 a 40 
Oi-O-E 11, 

■052 -*■'-■ 9" ■ 

010 » 40 
010 -E- 18* 



DECK NUMBER TEST ON (03) 



PART NUMBER TEST ON (03) 



-o- 

2 
~0- 



•Ttt&rttl&G ■#- 

«047E170 * 

-=04-7-El80- 

*047E190 # 
-»047E200 *- 

aQ48E000+ « 
--aG4BE0i0 

*G48EQ20 
--a048E03O- 

«048E040 
—=048 £ 05 — 

«048E060 
-S.048-EG70 

*048E080 
- -» G48E0 90 »- - 

=048E100 
— » 48 El-10 #— 

sa 048E120 



.... 3 

13 

13 

025 * 90 

- -9 - 0-1-O -*■-*«*- 

90+ 

-46-01-0-1- 
024 K 

— 0-20-s- 

9 002 

-47-010-$— 0- 

024 K 2 
024— K — 2" 

020 H 12 
-052-S— 1- 

020 H 12 

"052 -*— 4" 

1 020 

— 2 _ 0'5~6~~^ — <r 

050 T 

mrs - ^ - ""?" 

3 001 * 4 
024"U— 3" 

4 020 

~ 5-02 0-K — 4- 

6 020 

— 7-052-*— 8" 

8 020 - 

024-U---3" 

10 020 H 12 

— 9-0 10---— - 

48 010 S 

024-K— -2" 

120 

0O1-S----9- 

142 K 35 

071 21- 

020 S 



-052--*-- 9- 
002 E 13 
071 — -1- 
071 8 
-0-20- -Q —9— 
002 E 13 



STEP NUf^BER TEST ON (03) 



8» 



052 * 9 
QT0-*"4Q— 
010 E 12» 



TORM-NUMBER~TEST"-0N-(Q3) ~" 



052 

052- 

024 

05-6T- 

024 

■05F" 
056 

■0'20 - 
025 

'Oi2T" 
020 
0T4" 
050 

"050" 
050 
0-56" 
001 
OTO- 
050 



-PUT "STN" AT "END" "OF " STATE" TN " SI" 



» — 9- 
u 

U 3 
■*— 5- 

* 2 



H 12 
R— T" 
T_ 



CLOSE GAP IN OLD STATE LIST 
"SET~N0Or-SDCCESS0R~F0R""STN — 
SET NEW STATE FOR STN 



* 10 
s> f - 



ADO STN TO END OF NEW STATE LIST 



~ -001- *—-!" 

024 K 24 

1-020-H-T2 

052 * 2 

-2-124------ 

001 * 9 



052 

145 

124 

050 

052 

010 

020 

142 

024 

020 

02S- 

025 



*T0» ROUTINE 



■*-— 9- 
K 35 

-K-1T- 
H 12 
H"T2" 
a 58 

-H-T2- 
K 24 

-0~ 
K 5 

-*-90" 
I 1 



"EXIT "IF" NO -SIGNAL 

ERASE SIGNAL 
■SET~STN~CONTEXT ~" 

RELEASE CURRENT 8UFFER 



TL NEXT BUFFER TO STN 



— 048E130- 

=048E140 

--«048E-IS0- 

»048E160 
-a 048 E 1-70 

-Q48E180 
__=04&E190- 

=048E200 
._=04-8£210- 

=048E220 
_» 04 8 £230- 

=G48£240 
.J=G4&£250- 

*Q48E260 
._=0&8£2?0- 

=048E280 
-&DA8E2.9.Q- 



-T0~*3-IF--STAT-E*C6- 



•» 



* 



-TO -« IF STATE«L14 
STATE«L6 



010 s 



_5_i 



-ON- LAST- BUFFER- — -SWITCH- TO "USER 



CL+SU THEN EXIT 
-STATE-*-bl4 



6 



TO *7 IF 8UFF£R5«UNCH0KE NUMBER 



=048E3Q0 
._sQ4B-E3-iQ JL.--7- 

=048E320 
._s_Q48£3-30 #___9_i 

«048E340 * 90 
_»0A2E.0-QQ-+ ss._4.9~. 



EXIT IF STILL CHOKING 
-UNGHOKE 



«■ 



=049E010 
-_LQ4_£O20 

"049E030 
._=Q49£0_4G *___!. 

= 049E050 & 9 
-aOSOEQOQ* s_50_( 

=050E010 C 

„=LQ50EO2-0 C 

=050E030 
._=05OeO4O »—%■- 

=050E050 
_S-O.5G.E-06 

-050E070 
._=H50£CL80— 

-050E090 
-__150E1jQ0--. 

=O50E110 
-K.G-50E-1-20 — 

=050E130 
.^GS_-£-O-Q0+- 

•05IE010 

-a-G5i-eaaQ— 

=051EG30 
—0-5-1E040 — 

*051£050 

— 054-EO60— 

*051EQ70 
■-B- Q5-LE-08Q— . 

»051E090 
-~0-5*E-HK) — 

-051E110 ... 

-*e5____e— 
=051E130 

-— 05-1-EW9— 

=051E150 
— &5_£_60 — 

8051E170 



-E-XIT- 

-UPDA-TE-AG-TIVI-TY-OF-STN— 



052 * 
-050--H- 

050 H 
-050--H- 

050 H 
-024-K- 

020 — 
-001--*-- 

025 — 
-025-K- 

020 H 



-FT NO-PART- (-P20J- 



£-X I; T- M-I-Ntf 5- -IF - CAN * T- FTN D" 



— 9-< 
90 



--3- 



OUTPUT LOCATOR IN ACC 
-H21-r-H22»-H23--HOLD- USEFUL-POINTERS" 



-FIND-STEP--<P21-)- 



* 2 < 
■-#---8-1 

# 3 < 

--•» if-{ 



-exiT--MINUS--I'F-OrNtT--prND----- — . 

- -E-X I T" -M-I-NUS- -IP - CAN » T" "PtN D" TWO " CEAV E" H23 " M" 



050 H 



-=-051E-l-80 

=051E190 * 5 
-aO 51 £2-00 

=051E210 
-30S.1E220— 

=051E230 * 6 
__rLQ51___2_4Q 

=051E250 * 7 
__s.Q51E2.60 

=051E270 
_____Q5_1E2B0 #_„ 9 

*0S1E29Q * 90 
_ _=_Q5 1E3_QQ «_ _9_1 

=O52EOQ0+ a 52 
__=052E_3_10 

=052E02G 
_=052 E 030 

=052E040 * 1 
__=_052£0-50 

=052E060 
_^Q52£-0-70 

"052E080 # 2 
-=052£G90 

=052E100 ♦ 3 
-__G52-£-_-10 

=052E120 
--=- Q52-E-1-3G «--- 9- 

-052E140 # 90 
___GJ33£~0-GO-) -0-5.3- 

=053E010 
-^9S3£-G-2Q 

=053EQ30 
--*853£-040 *-— I- 

=053E050 
-*0fr3EO6O * — 2" 

a.053E070 
--=-053E-O80 «— 9- 

=054EOOO+ = 54 
"•e54601€- ------ 

«OS4E020 
-*O54SG-30— 

=054E040 
- — 0546050 ■*---_- 

=054E060 
--« 054E-070 •*-— 2- 

=O54EO80 
--054E090 — 



-0-5Q--H-26- 

020 H 25 
-020 -H- 26 

052 * 6 
■052 » 7 

02 

.00.1--* ---9-. 

025 

.025.-K--1-. 

020 H 26 
-010 .—_—.. 



010 £ 
.024-K---2- 

020 * 90 
.020-Q-U- 

020 H 25 
-020 --H- 26 

052 * 2 
- 0-5-2- -♦- 

020 — 



-0-10--5— 1-- 
050 H 24 
050 H 25 - 
024 K 2 

010 $ -1 

050 H 26 
020--P--21-- 
001 # 9 
.002--* ---5-- 
010 S 1 

N 8 
JQ-10-*. 



EXIT- MINUS -IF-CAN'T- RND- 
EXIT MINUS IF CAN»T FIND 



.•a.-. 



-001""*" 



■9- 



*054E100 
.__-O54£-110-- 

3O55EO00+ 
._=_O-S-5£-O10-- 

»055E015 
___O55E02O— 

ft055cO3O 
-=G55£-Q3-2-- 

=055EO34 
--* 055E-036--- 

■055E038 
_»055E04O— 

=055E050 



.3i — 9. 

- 55 



-1- 



025 

■0*5-*— -Jr 
020 H 26 

0-1-0 

Q 11 

-0-1-0-S — o- 

024 K 2 

0-20-H— 7 

024 U 2 

■O-20-*—— 

052 * 2 

'004— =«=-- 

020 K 4 

0-1-0-^-----.- 

010 S 

0-2-4 -K— 2 

020 $ 

■O20-H-1-2' 

052 * ■ 1 

0-20 — 

024 U 7 

■0-0 4 

020 H 12 
■02-0-5 — 
050 H 
0-10 — 
010 $ 
-0-24 -K 
020 K 
-05O--P-1-5 
024 U 1 
-020-Q---8 
050 Q 12 
05O-Q-13 
050 Q 8 

.020-* 

024 U 5 



052- 

050 

050- 

050 

050- 

024 

010- 

050 

0-20- 

001 

002- 

010 



OUTPUT LOCATOR IN ACC 
H21-H26 HOLD USEFUL INFO -ON-EX IT- 
FIND FORM (P22) 



H 25 
■H-26- 
H 24 
H-25- 
K 2 
-S— 1- 
H 26 

-P-22- 

» 9 

S 1 



- E XTT-M INUS-I F- C A N ♦ T ~ F I N D 



OUTPUT LOCATOR IN ACC AND H26 
- -H24- "LOCATES "PREDECESSOR" "ON "EXTT _" 



052 * 9 
-Q0i--*---9-- 

052 * 1 

-024— U--^ 7- 

010 S 1 

-m-T7G0Q- 

050 H 7 



-R-iCK-OU-T-CURRENT-PROGRAM-fTF-ANYj— "TEMP" 



TEHP0RARTCY-51"Z~W0RD'S" 



BRING IN PROGRAM (IF ANY) A/C STN TEMP 
KICK OUT CURRENT PROGRAM IF ANY 



8 



-2- 
4 



-052--*- "9- 
010 a 53 

-024-U — 2- 
010 S 1 

-001--*— 9 
052 * 2 
1-10.7000 
050 H 7 

-01O~=— 0- 
010 S 1 



-TEM PORA R-I-tY - 5 12 " WOft OS - 



SET START TIME FOR SHOT 



SWITCH TO USER (CL+SU) 

-(■ASSUMES- -SUB5-T-A-TE- OF "LI 0' "ALREADY" W -P13T 
CLEAR P16 BEFORE SWITCHING 

"AtSO-CtEAR-Pl-5 — " 



052 --#---$— 
050 P 16 
■020-H-1-2-- 
052 * 1 
001- -«- 
020 Q 
•0-20-K— 4- 
050 Q 9 
001--*- 
052 * 



-1- 

9 



-JUMP- -IF- 08 "MINUS 
HIDE Q8-Q9 



-3- 
2 



_=O55£06G-. 

=055E07Q 
_»_Q55£LQ80- 

=055E090 
.= G55E100~. 



.*___2 



ft„..3_ 



=055E110 

__=Q55£X2Q__ 
=055E130 

. _«Q55£140__ 
=055E150 

._*03.5.EX6G__ 
"055E170 
=055E180 
=055E190 
_= 05 6 EG 00+ 
=056E010 

=056E030 
._=056E_04_Q 
*056E050 
_=_056E0_60__ 
*d56E070 
"056E080 



-02-0-" 
020 S 

L- 

010 ♦ 

020-5- 



# 4 



002 * 
_02£L-S- 
L 
-0X0.-*- 

020 H 
-142- JC- 

020 S 
L_ 

010 — 
_Ql__S_ 

024 K 
-Q20 SL 

020 H 
_02XLJt_ 

025 K 
-Q2XL-H- 

020 H 

_02.Q_H_ 

020 S 

_01_0__— 

oio s 

_Q24__K_ 

020 H 

_Q2.Q_.H_ 

052 — 

-Q2_>__H_ 

020 $ 

.QlXL_--= 

010 s 

_0.24_K_ 

020 H 

.Q2-4-U- 

056 # 

.Q2.GL--- 

002 S 

.0.24 _U_ 

056 * 

.Q2SLJL- 

060 * 

-02D--H- 

020 T 

..02.0-%-.. 

052 * 

-02-0---.-- 

024 U 

■02-0--H- 

020 L 

-0-50-H-; 

020 $ 

02-a-s- 

L 
-02-0--H- 
142 K 
■050-H- 

050 H 



— -oo-x--**- 

010 « 

^ L_ 

9 

OIO = • 

010 $ 
-010--*- 
L 



-4-- 
47 

-6-- 



CHANGE STATE TO L6 WHILE DRAINING 



0. 

4 
-JO 

7 

__9- 

12 024 K 
36-0.10- S. 

010 = 

xo. l 



a 

i 

47- 
7 



ASSIGN- INPUT-BUFFER -. 

TO #4 IF ASSIGNED 
- -CHAN GE- -STATE- - TO- -L-7 - -,-F -NO- -&UF FER- -A VAitAB tr 



36 

— 1 

47 
10_- 



QK TO SWITCH 
-CL+SU- 



CHANGE STATE TO L10 GREEN 



# 9 

.~_5_6 



-*__JL 



* 2 



=056E090 

■_056E_100_ 

= 057£000+~ 

~_0_57EO_10 

»057E02~0 ; 

gQ57E0 30 



__ 

2 052 * 

._o_aia_ »... 

22 056 # 
_AX24---- 

1 002 * 
2X_056->- 

23 056 — 
22_Q.7JU__ 

010 » 



9 
57- 

1 



ERASE-S-TEP--A/-C-H2-1-H26 

-STEP-LOOKS-JUST-LIKE-FORM-HERE- 



9 
2- 



EXIT UNLESS PART NOW EMPTY 



61.. 

28 



# 9_ 

"= _ 57" 



ERASE LEFT LINKED LIST (ONE ITEM HERE) 
ERASE PART A/C H24-H26 



=057£040 
=_0_57E05Q 
=057E060 
5C57E0_7O_ 
= 0~5~8E000 + 
__-_5_L&_LQ__. 



* 1 




_2__GS2-A 
24 052 * 
2.6-Q.10-..&. 

— 010 $ 
25__a71-_ 

010 = 



.9- 

1 

a., 



.#___9_ 

= 58 



1 
.19- 

29 



ERASE RIGHT LINKED LIST A/C HO 







=058E020 
= Q58E_Q30___ 
*0~53E04C 
.5_0_5_8£Oj5_G___. 
=058E055 

_SiiSJB£OA.Q 

=058E070 

.f_<__8EA__Q___. 

=058E090 
.JLQ58EUQLQ 

=058E110 



_t__JL 



* 2 



=058E130 
-_-Q58ElAQ 

*G58E150 
-=U58EX60 

=058E170 
-^0-58£~1-80 

=058E190 
-^058£-2-&9 

*058E210 
-JMJ58E-2-20 

=058E230 
-=058E240 — — 

*058E250 



* 4 



-->---6 



* 6 



_2.-0.52-t_ 

12 050 * 
_X-052--«t. 

8 010 $ 
----Q5Q--H- 

1 010 * 
_5_Q56-*- 
3 004 — 
__4.jQ50— -.- 
93 050 T 
056--T- 
142 K 
040-S- 
056 * 

—L-001--*-- 

5 010 * 

1-3- -050-—- 

7 005 * 

X2-010-S- 
010 » 

-■0-0-10--*- 

10 L 
-1-2--024-K-- 
36 020 * 
1-2-020-*- 

13 050 ~ 



12- 


9X. 

5 



...9- 

92 

-1- 

1 
13- 

9 
_2_ 




_0-- 
16 
_1_ 

6 
-6-- 

4 



RELEASE CURRENT BUFFER FOR STN 

— SERV-ICES-L-7-W-I-TH-FREE--8UFFER-AND -- 

LEAVES NEXT BUFFER OR -1 IN ACC AND HI 



PICK UP NEXT BUFFER (IF ANY) 
-SE-T-SUC-CESSGR-QF--QLD--BUFFE-R--T9 — _---- 



SET BUFFER BITS IN SCR FOR NEW BUFFER 
.£I,nd-TA-IL-0F--H}G~L-I-5T 



7 

-l- 

8 
4-7- 

10 

36- 

92 

93 



PUT- - GL-D -BUFFER- ON- -END- -OF- mQ ~ tl-rf 
SERVICE L7 

ASSIGN BUFFER 

C-HANGE--STA-T&-TO--LI0 



CL+SU- 



'RESTORE""'STN"CONTEXT-- — ' "- 

LEAVE NEXT BUFFER OR -1 IN ACC AND H13, 



-*"058E2"60 *- 

=056E270 * 

-—058E280 »" 

=*058E290 # 

--SO59E0OO* a- 

=059E010 

-~O59E02O 

=059E030 
~kO59E035 «" 

=059E04O 
—-059E050 ■#" 

S059E060 * 
---O59E07O 

-059E080 
--3-059ET0-90- 

=059E10Q 
■~^C59ETrO" 

=O6GEOO0+ 
— =060"£0TD 

-060E020 
~*0BUETJ30 

-060E040 
"~ SU50EU5TD *~ 

=060E060 
~~=0SUFa7D w 

=060E080 * 
"«=O601E"a9D 

=060E100 * 



OTff*-r- 



* 

# 

"*"~9'0' 

= 60 



""9 

91 

92 

93 
59" 010 

024 
02O" 

052 
""5"'CTS"6' 

001 

'052 

020 

"""01<f 

3 020 

"4~02TJ" 

9 010 



H 10 



H 10 



"EXIT" 



$ 0: 

K 2 

TTT2 

* 3 



T 
2 



U" 



"4 

9 

"2 



052 

024" 

056 

020" 

020 

56 

001 

oixr 



9 

"2" 
5 



'PRIVATE "STORAGE" "FOR"~STN 
PRIVATE STORAGE FOR BUFFER 
RELEASE DRUM FOR STN 



90 

3 

3 
"T 



EXIT IF NO DRUM ASSIGNED 



-— (JmETT0 

=O6lE000+ 
" T »CBTEUID 

=061E020 
"" ="061T03D 

=O61£04O 

suzi&m — 

*061E060 

-~*omT07xr— 

=061E080 

-~o6i-eo9tr— 

=062E0Q0+ 
-s06'2E0t0 

=062E020 
—» 063^0 eo*— 

«063E010 

--■©fiseozt)— - 

-O63E030 

-»06-3£©4O 

*063E050 

--=O6-3E06o — 

=063E070 
--»064E-060*--- 

=064E010 
-*064e020- — 

*064E030 
-*66r4E94G- 

«064E050 
--»G64-E060-- 

=064E070 
"«064eO80- 

=064E090 



010 
D"24 

004 
02"O" 
052 
— 1~~ 050" 
052 

~ 2~0T<y 
3 020 

D~2Q 

gcrwo 

61 010 

~ "024 

020 

YZQ 

044 



050 -• 

-£-- -4-O50" ~-~-- 

"H"I'r~" H""lTi 

X" ""2" "032"*" "9" 

^__ 9 _ _ X1 _°*_ 7 ?P_°_ 

'0" -"2-024" TT 1.2" 

g 1 020 H 11 

024 6 

* 2 056 * 3 



PUT DRUM ON END OF HI a LIST 
"UNASSTGN'STN 

EXIT _ 

INITIALIZE DRUM FOR STN(H12) (TEMP) 



ADJUST DRUM TABLES" 



' 050 H 11 

K_ 4 050 -~— 
H 12" 050 H 7 



ESTABLISH STN AS IN CORE 



»O'00"0»Oro*0Y77» 
_S___0_ 

K ~"2-052"~#~"~9"~ 
_S _0_O1O « 
"~ 004 H 1 

J 1 120 



Jz9^y.^!il _ JJE_ME_ FOR _ OUTPUT 
READ THE CLOCK 



044 J 036 N 2 
060 H 20 010 S 1 

' "0Z0 -ST - "0 " 0X0" STT6 ' 
3 4 



••»-— 9-0-ro" 

* 62 050 
020" 

020 
--63-OT0- 
024 

-0-20- 

* 1 020 
-• 1-24" 

9 002 



•» 



020- 

010 

r -6 4-01-0- 
024 

--024- 

* 1 020 
---#— 2- -020- 

* 3 020 
0-71- 

020 
050- 

* 4 060 



T 
TV - 1-4- 
T 
3—0- 
K 2 
-J--I2- 
S 
A-14- 

mi ■■■ * m ■ " > 

S---0- 

* 1 
S---0- 

K 2 
X — 2" 



010 S 
050"P- 

010 « 




11""" 

66 * 



INSERT SPACE IN OUTPUT REGION S 



052 

050" 

010 

025" 

010 

010 



'COPY-STEP - "NUMBER - FROM -R" TO'S" 



* 9 
P— 2- 

* 1 
A-14- 
S 1 
55 — if- 



T 

— a 
p 12 

■P-T2" 



052 * 1 
'052~»— 9" 
052 * 2 
O50-T---0- 
001 * 9 
Q-5Q-T— -0" 
024 K 3 
-052~* — 4" 
023 T 



"UNPACK " MSG -TO" $ ~FOtr "OUTPUT - COMPOSTTrON" 
020 S 010 64 

WHERE »M» IS LOCN OF MSG 



-=064E100- ^ 

=064E110 
— 064E120 *- -9 

=065E00O+ a 65 
-=065EO10 

-065E020 
-«065E-03Q *.--! 

=*065E050 
--Q65E060 #---2-- 



--GOl--*-- 
024 K 

010 

010 
024 
020 



-3-0-20-*- 
2 014 * 



"2" 
1 



SO 

X -2 052* 1 

S 050 P 12 

020 — 050 -*- - 2 

020 5 010 * 64 



OUTPUT CANNED MS6 TO STN 

020 $ ' 0010 = 65 

M M 



— =...66 



=065E070 
-SL066EO00+— 

*066E010 
-1066EO20 

=066E030 
. a 066EO40 #—l 

*066E050 * 9 
_k.06.7E 00+ =~6-7 

=>067E010 
-_=Q67£^20 

»067E030 * 1 
-?=_067.£JHQ 

*067E050 
_=06-7E060 &__9- 

=Q67E070 * 90 
. _= Q67EO80- — — #- -9-1- 

=O68E000+ s 68 

-A068£a;to 

*068E020 
_=Q68£030 

=068£040 
-=_Q68£I145 - 

=068E050 
-_=-O68Eil60 

=068E070 
_=Q68E080- 



=068E090 
-AO68E-1-O.0— 

=069EOOG+ 
-*069€-0-lre— 

=Q69E020 
--069E-0-30— 



# 1 

-j* 2- 

«• g 

= 69 



*069£040 
~s.Q6-9£-0-50— 

«069E060 * 9 
-^.070E-O004- =—70 

=070E010 * l 
_a.a30EO2O. 



=*Q70£Q3G 

j= G70EO40 *_ - -2 

-070E050 
._^070E060- 

=070E070 * 3 
-s-07-OE-O 8 



=070E090 
. _=_Q70£-1-00 #---4 

=070E110 
-■^070E-1-2Q 

=070E130 

-* 070&1-40-- 



=070E150 



# 



020 * 
-010- -s- 

024 K 
-02-0-P- 

050 P 
-Q20-P- 

010 — 
-004-K- 

024 K 
-02-Q- -■»- 

020 — 
-02-0--*- 

025 *' 

_010 

020 R 
-02-0--R- 

010 s 
- 0-2-4 -K- 

020 P 
-050-T- 

050 T 
-02-5--T- 

052 # 
-124--K- 

044 — 
-036—- 

010 -- 
— — N- 

010 s 
-Q-24-K- 

020 A 
-020--S- 

020 A 
-Q-2-G--S- 

010 — 

■ 0-1-0- -S- 
024 K 

-020-H- 
005 * 

■ 00-1--*- 
005 * 

.0-7-1— - 

010 # 
-00&-*- 

071 
. 0-1-0--*- 

124 K 
-1-24--K- 

005 * 
-071 

010 # 



1 010 = 25» 

2 052 * 9 
-1-2-024 -K— 3 - 
12 056 * 1 

-1-1- -0 50-— 



■PUT-(Pl-I-)-IN"NeXT-S-CEL-L-~(PI2')-+r 



— 3-oao-s— .-o- 

2 052 * 9 
9&-050 --* — ■ l- 

50 

-1-064--*— 1- 
91 001 * 1 



"-BLOCK TRANSFER-R-TO-SW— 



1 050 S 1 
-7-4-0 50- -S-74* 

COMPUTE PART IP20) FOR STEP (P21) 
--2- -052--* --9 

21 124 K 11 

-0-0-70 10 

1 020 * 90 
-1— 052-*— 1- 

2 020 P 21 

-1-3--072 39-- 

— 020 T 
— -»- 060-P— 20— 



— -ASSUMES- - i P-2-l-h - IS- -t EG-I-T TMA-TE- 



_-8- 


-2--6S2"*- 
27 050 P 

-o~o-io-=- 

42 050 P 
- -0-0 10- -a - 

--0- — — -- 

2 052 * 

2 1-025 -H- 

2 025 K 
1-2- -023- -H- 

3 020 H 
--9 -001—*- 
13 023 H 
-4-02'0-H- 

9 001 * 
1-1--020-H- 

12 024 H 
1-2- -025- K- 

5 020 H 
-9-001-*- 

13 020 H 



INSERT PERIOD AND CR+EOM IN OUTPUT 
..^ _ 

11 

66 

11 

66r 



9 
■22— 

1 
22-- 
21 
11-- 
21 

■22— 
13 

2-1— 
22 
12- - 
21 

-1-1 

22 



COMPARE; - i H21" t - W -<"H22T " 



'"07DFT60 OTf 1 "072 1" 

'070E170 050 T 020 H 21 



'-070ET80 "071 1 072 "1" 

: 070E190 025 T 001 * 6 

■070E200 020 H 21 071 9 

: 070E210 002 # 13 010 * 11 



-070T22Q *"-"6-0Za~FT2ir07r 9" 

=070E230 002 » 11 010 * 13 

•G70E240 *-TI"OZ0"K""Z"6-01-D'"#"""9" CESS" 

=070E250 * 12 020 K 25 010 * 9 EQUAL 

■■070E2S0- # 13 "020 K"24~0l<T* 9 "~ "GREATER " " " * 

'070E27Q * 9 010 » EXIT WITH RELATION IN ACC 



"3251" 






